From b8328daed2539ae075bccc60f3e5bb4b34f39c28 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Tue, 26 Jun 2007 21:07:02 +0000 Subject: [PATCH] make sure PL_Parser is NULL during early stage of thread clone p4raw-id: //depot/perl@31474 --- sv.c | 2 ++ 1 file changed, 2 insertions(+) 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); -- 2.7.4