diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2006-04-16 23:07:13 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-04-16 23:07:13 +0000 |
| commit | cecbe0108c1c5a1c170a53b486232d7a592e3312 (patch) | |
| tree | 0f2685e86a4d96c4a263a43e27c7a2976ac39a18 /pp_ctl.c | |
| parent | 8f01dc65ffe0fac5309bf561048e6ae93442a218 (diff) | |
| download | perl-cecbe0108c1c5a1c170a53b486232d7a592e3312.tar.gz | |
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
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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) |