From fe5eb08d6418f99ac7b6f8c3ccb5769a93dbc93d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sat, 31 Jan 1998 21:46:03 -0800
Subject: [PATCH] bugfix

Rev: src/main.c:1.39
---
 src/main.c | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/src/main.c b/src/main.c
index 8fd9af3317..d83f3a6dd8 100644
--- a/src/main.c
+++ b/src/main.c
@@ -4,7 +4,7 @@
 ||| See the files COPYING and DISCLAIMER for more information.
 \*/
 #include "global.h"
-RCSID("$Id: main.c,v 1.38 1998/01/27 18:06:43 hubbe Exp $");
+RCSID("$Id: main.c,v 1.39 1998/02/01 05:46:03 hubbe Exp $");
 #include "fdlib.h"
 #include "backend.h"
 #include "module.h"
@@ -260,23 +260,6 @@ int dbm_main(int argc, char **argv)
   call_callback(& post_master_callbacks, 0);
   free_callback(& post_master_callbacks);
   
-  a=allocate_array_no_init(argc,0);
-  for(num=0;num<argc;num++)
-  {
-    ITEM(a)[num].u.string=make_shared_string(argv[num]);
-    ITEM(a)[num].type=T_STRING;
-  }
-  push_array(a);
-
-  for(num=0;environ[num];num++);
-  a=allocate_array_no_init(num,0);
-  for(num=0;environ[num];num++)
-  {
-    ITEM(a)[num].u.string=make_shared_string(environ[num]);
-    ITEM(a)[num].type=T_STRING;
-  }
-  push_array(a);
-
   if(SETJMP(back))
   {
     if(throw_severity == THROW_EXIT)
@@ -293,7 +276,24 @@ int dbm_main(int argc, char **argv)
     }
   }else{
     back.severity=THROW_EXIT;
+
+    a=allocate_array_no_init(argc,0);
+    for(num=0;num<argc;num++)
+    {
+      ITEM(a)[num].u.string=make_shared_string(argv[num]);
+      ITEM(a)[num].type=T_STRING;
+    }
+    push_array(a);
     
+    for(num=0;environ[num];num++);
+    a=allocate_array_no_init(num,0);
+    for(num=0;environ[num];num++)
+    {
+      ITEM(a)[num].u.string=make_shared_string(environ[num]);
+      ITEM(a)[num].type=T_STRING;
+    }
+    push_array(a);
+  
     apply(master(),"_main",2);
     pop_stack();
     
-- 
GitLab