From: David Mitchell <davem@iabyn.com>
Date: Fri, 8 Jan 2010 19:22:36 +0000 (+0000)
Subject: in perl_clone() shuffle some ifdefs about a bit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=742421a6d27bb72693477d2ace6f6c1fbb417709;p=p5sagit%2Fp5-mst-13.2.git

in perl_clone() shuffle some ifdefs about a bit

No change in logic.
---

diff --git a/sv.c b/sv.c
index d4f3153..5f99266 100644
--- a/sv.c
+++ b/sv.c
@@ -11831,17 +11831,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 #  else	/* !DEBUGGING */
     Zero(my_perl, 1, PerlInterpreter);
 #  endif	/* DEBUGGING */
-
-    /* host pointers */
-    PL_Mem		= ipM;
-    PL_MemShared	= ipMS;
-    PL_MemParse		= ipMP;
-    PL_Env		= ipE;
-    PL_StdIO		= ipStd;
-    PL_LIO		= ipLIO;
-    PL_Dir		= ipD;
-    PL_Sock		= ipS;
-    PL_Proc		= ipP;
 #else		/* !PERL_IMPLICIT_SYS */
     IV i;
     CLONE_PARAMS clone_params;
@@ -11871,6 +11860,20 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     Zero(my_perl, 1, PerlInterpreter);
 #  endif	/* DEBUGGING */
 #endif		/* PERL_IMPLICIT_SYS */
+
+#ifdef PERL_IMPLICIT_SYS
+    /* host pointers */
+    PL_Mem		= ipM;
+    PL_MemShared	= ipMS;
+    PL_MemParse		= ipMP;
+    PL_Env		= ipE;
+    PL_StdIO		= ipStd;
+    PL_LIO		= ipLIO;
+    PL_Dir		= ipD;
+    PL_Sock		= ipS;
+    PL_Proc		= ipP;
+#endif		/* PERL_IMPLICIT_SYS */
+
     param->flags = flags;
     param->proto_perl = proto_perl;