projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Upgrade to Compress::Zlib 1.38
[p5sagit/p5-mst-13.2.git]
/
perl.c
diff --git
a/perl.c
b/perl.c
index
3ff4a80
..
188e193
100644
(file)
--- a/
perl.c
+++ b/
perl.c
@@
-2238,8
+2238,10
@@
S_run_body(pTHX_ I32 oldscope)
if (!PL_restartop) {
DEBUG_x(dump_all());
+#ifdef DEBUGGING
if (!DEBUG_q_TEST)
PERL_DEBUG(PerlIO_printf(Perl_debug_log, "\nEXECUTING...\n\n"));
+#endif
DEBUG_S(PerlIO_printf(Perl_debug_log, "main thread is 0x%"UVxf"\n",
PTR2UV(thr)));