diff options
author | David Mitchell <davem@iabyn.com> | 2015-12-26 12:37:30 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:18 +0000 |
commit | ceb12bd8658d8542570022026702734394fec792 (patch) | |
tree | e025a81e110ba978ad5c6474d899ce498d2779d9 /pp_hot.c | |
parent | 274ed8ae511aa4c52d0c3e975eb44853d4f5336f (diff) | |
download | perl-ceb12bd8658d8542570022026702734394fec792.tar.gz |
PUSHSUB: make retop a parameter
Rather than doing cx->blk_sub.retop = NULL in PUSHSUB, then relying on
the caller to subsequently change it to something more useful, make it an
arg to PUSHSUB.
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -3854,8 +3854,7 @@ PP(pp_entersub) gimme = GIMME_V; PUSHBLOCK(cx, CXt_SUB, gimme, MARK, old_savestack_ix); hasargs = cBOOL(PL_op->op_flags & OPf_STACKED); - PUSHSUB(cx, cv, hasargs); - cx->blk_sub.retop = PL_op->op_next; + PUSHSUB(cx, cv, PL_op->op_next, hasargs); padlist = CvPADLIST(cv); if (UNLIKELY((depth = ++CvDEPTH(cv)) >= 2)) |