pp_ctl.c: Add -D output for inward goto

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;