XXX perl.h: Debugging trace across all files

Perl · Apr 29, 2021 · 5b386cb · 5b386cb
1 parent afcfded
commit 5b386cb
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/perl.h b/perl.h
@@ -10,6 +10,11 @@
 
 #ifndef H_PERL
 #define H_PERL 1
+#if 0
+#define DEBUG_PRE_STMTS   dSAVE_ERRNO;                                        \
+                PerlIO_printf(Perl_debug_log, "%s:%d: ", __FILE__, __LINE__);
+#define DEBUG_POST_STMTS  RESTORE_ERRNO;
+#endif
 
 #ifdef PERL_FOR_X2P
 /*