diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-26 11:39:30 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:18 +0000 |
| commit | fd9b7244731b18bb1794c4ff6540e4040e51879b (patch) | |
| tree | cafd34f6763a5bbb13041545bfaa905b62363fc8 /pp_sys.c | |
| parent | 47878d9caf766872f9956edf713aa65c5b6383aa (diff) | |
| download | perl-fd9b7244731b18bb1794c4ff6540e4040e51879b.tar.gz | |
PUSHBLOCK: don't use implicit args
Make gimme a parameter of PUSHBLOCK() rather than just assuming that
there's a 'gimme' var in scope.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1389,7 +1389,7 @@ S_doform(pTHX_ CV *cv, GV *gv, OP *retop) if (CvCLONE(cv)) cv = MUTABLE_CV(sv_2mortal(MUTABLE_SV(cv_clone(cv)))); - PUSHBLOCK(cx, CXt_FORMAT, PL_stack_sp, PL_savestack_ix); + PUSHBLOCK(cx, CXt_FORMAT, gimme, PL_stack_sp, PL_savestack_ix); PUSHFORMAT(cx, retop); if (CvDEPTH(cv) >= 2) pad_push(CvPADLIST(cv), CvDEPTH(cv)); |