From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 16 Apr 2006 23:07:13 +0000 (+0000)
Subject: stop PL_op and PL_curpad referring to different pads at start of doeval
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cecbe0108c1c5a1c170a53b486232d7a592e3312;p=p5sagit%2Fp5-mst-13.2.git

stop PL_op and PL_curpad referring to different pads at start of doeval
(this could make find_uninit_var do Bad Things)

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

diff --git a/pp_ctl.c b/pp_ctl.c
index d783e1f..f88e91d 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2898,6 +2898,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
     /* set up a scratch pad */
 
     CvPADLIST(PL_compcv) = pad_new(padnew_SAVE);
+    PL_op = NULL; /* avoid PL_op and PL_curpad referring to different CVs */
 
 
     if (!PL_madskills)