From cecbe0108c1c5a1c170a53b486232d7a592e3312 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Sun, 16 Apr 2006 23:07:13 +0000 Subject: [PATCH] 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 --- pp_ctl.c | 1 + 1 file changed, 1 insertion(+) 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) -- 2.7.4