This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] fix order of init
authorHans Mulder <hansmu@xs4all.nl>
Fri, 3 Apr 1998 13:58:15 +0000 (05:58 -0800)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 4 Apr 1998 01:11:57 +0000 (01:11 +0000)
Message-Id: <3.0.5.32.19980403135815.009d2440@osshe.edu>
Subject: [PATCH 5.004_64] perl dies in perl_construct when compiled
 with MULTIPLICITY

p4raw-id: //depot/win32/perl@875

perl.c

diff --git a/perl.c b/perl.c
index f84e241..fdbdad1 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -176,6 +176,7 @@ perl_construct(register PerlInterpreter *sv_interp)
 #endif
     }
 
+    init_stacks(ARGS);
 #ifdef MULTIPLICITY
     I_REINIT;
     perl_destruct_level = 1; 
@@ -211,7 +212,6 @@ perl_construct(register PerlInterpreter *sv_interp)
 
     fdpid = newAV();   /* for remembering popen pids by fd */
 
-    init_stacks(ARGS);
     DEBUG( {
        New(51,debname,128,char);
        New(52,debdelim,128,char);