make -Dl log runops loop entry and exit, and jump level popping

p4raw-id: //depot/perl@23161

1 files changed, 2 insertions, 0 deletions

diff --git a/dump.c b/dump.c
index abfddd0e51..533dd7825d 100644
--- a/dump.c
+++ b/dump.c
@@ -1540,6 +1540,7 @@ Perl_runops_debug(pTHX)
 	return 0;
     }
 
+    DEBUG_l(Perl_deb(aTHX_ "Entering new RUNOPS level\n"));
     do {
 	PERL_ASYNC_CHECK();
 	if (PL_debug) {
@@ -1562,6 +1563,7 @@ Perl_runops_debug(pTHX)
 	    if (DEBUG_P_TEST_) debprof(PL_op);
 	}
     } while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX)));
+    DEBUG_l(Perl_deb(aTHX_ "leaving RUNOPS level\n"));
 
     TAINT_NOT;
     return 0;