diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-26 12:07:50 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:18 +0000 |
| commit | fb2f5dcb57b41dc6ca1183fbeb492312ff40ed58 (patch) | |
| tree | f09c82e66bc81587bb7957963a39f1c5c394b87a /pp_sys.c | |
| parent | 40ba680a17dc8d6a78964c98884ac1cb18695d8a (diff) | |
| download | perl-fb2f5dcb57b41dc6ca1183fbeb492312ff40ed58.tar.gz | |
PUSHFORMAT: don't use implicit args
Make cv and gv explicit parameters of PUSHFORMAT(), rather than just
assuming that there are such vars in scope.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1390,7 +1390,7 @@ S_doform(pTHX_ CV *cv, GV *gv, OP *retop) cv = MUTABLE_CV(sv_2mortal(MUTABLE_SV(cv_clone(cv)))); PUSHBLOCK(cx, CXt_FORMAT, gimme, PL_stack_sp, PL_savestack_ix); - PUSHFORMAT(cx, retop); + PUSHFORMAT(cx, cv, gv, retop); if (CvDEPTH(cv) >= 2) pad_push(CvPADLIST(cv), CvDEPTH(cv)); PAD_SET_CUR_NOSAVE(CvPADLIST(cv), CvDEPTH(cv)); |