X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=5f0bef213817fbbe8fa86bec90f964d96b81a709;hb=6af654855041e350ad1ba2c39f0be19af24f50c6;hp=abfddd0e51b7762ab12d67ec13b80cfacbf6a9f5;hpb=38c076c778be4d77b58837d5c13b55bd2f5fb50e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/dump.c b/dump.c
index abfddd0..5f0bef2 100644
--- a/dump.c
+++ b/dump.c
@@ -13,6 +13,13 @@
  * it has not been hard for me to read your mind and memory.'"
  */
 
+/* This file contains utility routines to dump the contents of SV and OP
+ * structures, as used by command-line options like -Dt and -Dx, and
+ * by Devel::Peek.
+ *
+ * It also holds the debugging version of the  runops function.
+ */
+
 #include "EXTERN.h"
 #define PERL_IN_DUMP_C
 #include "perl.h"
@@ -1540,6 +1547,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 +1570,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;