From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 26 Jun 2007 21:07:02 +0000 (+0000)
Subject: make sure PL_Parser is NULL during early stage of thread clone
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8328daed2539ae075bccc60f3e5bb4b34f39c28;p=p5sagit%2Fp5-mst-13.2.git

make sure PL_Parser is NULL during early stage of thread clone

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

diff --git a/sv.c b/sv.c
index 1b5d8e8..f503f14 100644
--- a/sv.c
+++ b/sv.c
@@ -10906,6 +10906,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_savestack_ix = 0;
     PL_savestack_max = -1;
     PL_sig_pending = 0;
+    PL_parser = NULL;
     Zero(&PL_debug_pad, 1, struct perl_debug_pad);
 #  else	/* !DEBUGGING */
     Zero(my_perl, 1, PerlInterpreter);
@@ -10940,6 +10941,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_savestack_ix = 0;
     PL_savestack_max = -1;
     PL_sig_pending = 0;
+    PL_parser = NULL;
     Zero(&PL_debug_pad, 1, struct perl_debug_pad);
 #    else	/* !DEBUGGING */
     Zero(my_perl, 1, PerlInterpreter);