summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2017-12-11 13:38:24 -0800
committerFather Chrysostomos <sprout@cpan.org>2017-12-17 12:18:03 -0800
commite57923a2c4fa758db6d61eb407b8ffb8ac38f5b2 (patch)
tree979acdd38467b1dd1692a60f6acb54384bb883d8 /pp_ctl.c
parentda4e040f42421764ef069371d77c008e6b801f45 (diff)
downloadperl-e57923a2c4fa758db6d61eb407b8ffb8ac38f5b2.tar.gz
pp_ctl.c: Add -D output for inward goto
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 88de13605f..a0cb31ccf6 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3057,6 +3057,8 @@ PP(pp_goto)
for (; enterops[ix]; ix++) {
PL_op = enterops[ix];
S_check_op_type(aTHX_ PL_op);
+ DEBUG_l( Perl_deb(aTHX_ "pp_goto: Entering %s\n",
+ OP_NAME(PL_op)));
PL_op->op_ppaddr(aTHX);
}
PL_op = oldop;