perl.c - add debug output to show when the run_body() continues after eval fail

This can be helpful debugging issues related to phaser blocks and eval.

1 files changed, 8 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 417381683c..ba6a7ff17d 100644
--- a/perl.c
+++ b/perl.c
@@ -2783,6 +2783,14 @@ S_run_body(pTHX_ I32 oldscope)
     PERL_SET_PHASE(PERL_PHASE_RUN);
 
     if (PL_restartop) {
+#ifdef DEBUGGING
+        /* this complements the "EXECUTING..." debug we emit above.
+         * it will show up when an eval fails in the main program level
+         * and the code continues after the error.
+         */
+        if (!DEBUG_q_TEST)
+          PERL_DEBUG(PerlIO_printf(Perl_debug_log, "\nCONTINUING...\n\n"));
+#endif
         PL_restartjmpenv = NULL;
         PL_op = PL_restartop;
         PL_restartop = 0;