summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-12-26 11:52:33 +0000
committerDavid Mitchell <davem@iabyn.com>2016-02-03 09:19:18 +0000
commit40ba680a17dc8d6a78964c98884ac1cb18695d8a (patch)
tree10e8255c9cc84dae2fabf155921bffe061bd7c79 /pp_ctl.c
parentfd9b7244731b18bb1794c4ff6540e4040e51879b (diff)
downloadperl-40ba680a17dc8d6a78964c98884ac1cb18695d8a.tar.gz
PUSHSUB: don't use implicit args
Make cv and hasargs explicit parameters of PUSHSUB(), rather than just assuming that there are such vars in scope.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index f5739687b9..7272e8353e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2013,9 +2013,8 @@ PP(pp_dbstate)
return NORMAL;
}
else {
- U8 hasargs = 0;
PUSHBLOCK(cx, CXt_SUB, gimme, SP, PL_savestack_ix);
- PUSHSUB_DB(cx);
+ PUSHSUB_DB(cx, cv, 0);
cx->blk_sub.retop = PL_op->op_next;
SAVEI32(PL_debug);