From: Artur Bergman <sky@nanisky.com>
Date: Thu, 21 Jun 2001 10:31:06 +0000 (+0200)
Subject: Re: perl@10765: sv.c not OK on win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=832365561240eb07aaddce15adf009487776d2f0;p=p5sagit%2Fp5-mst-13.2.git

Re: perl@10765: sv.c not OK on win32
Message-ID: <B7577D69.182C%artur@contiller.se>

p4raw-id: //depot/perl@10769
---

diff --git a/sv.c b/sv.c
index 7119cf2..555f82d 100644
--- a/sv.c
+++ b/sv.c
@@ -9477,7 +9477,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     IV i;
     clone_params* param = (clone_params*) malloc(sizeof(clone_params));
-    param->flags = flags;
 
 
 
@@ -9515,7 +9514,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     IV i;
     clone_params* param = (clone_params*) malloc(sizeof(clone_params));
     PerlInterpreter *my_perl = (PerlInterpreter*)PerlMem_malloc(sizeof(PerlInterpreter));
-    param->flags = flags;
     PERL_SET_THX(my_perl);
 
 
@@ -9531,6 +9529,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     Zero(my_perl, 1, PerlInterpreter);
 #    endif	/* DEBUGGING */
 #endif		/* PERL_IMPLICIT_SYS */
+    param->flags = flags;
 
     /* arena roots */
     PL_xiv_arenaroot	= NULL;