This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_ctl.c: Add -D output for inward goto
authorFather Chrysostomos <sprout@cpan.org>
Mon, 11 Dec 2017 21:38:24 +0000 (13:38 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 17 Dec 2017 20:18:03 +0000 (12:18 -0800)
pp_ctl.c

index 88de136..a0cb31c 100644 (file)
--- 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);
            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;
                PL_op->op_ppaddr(aTHX);
            }
            PL_op = oldop;