diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2017-12-11 13:38:24 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2017-12-17 12:18:03 -0800 |
| commit | e57923a2c4fa758db6d61eb407b8ffb8ac38f5b2 (patch) | |
| tree | 979acdd38467b1dd1692a60f6acb54384bb883d8 /pp_ctl.c | |
| parent | da4e040f42421764ef069371d77c008e6b801f45 (diff) | |
| download | perl-e57923a2c4fa758db6d61eb407b8ffb8ac38f5b2.tar.gz | |
pp_ctl.c: Add -D output for inward goto
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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; |