Change 13139 by jhi@alpha on 2001/11/20 20:12:06
Really define do_report_used() only if DEBUGGING.
Affected files ...
.... //depot/perl/sv.c#493 edit
Differences ...
==== //depot/perl/sv.c#493 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Tue Nov 20 13:15:05 2001
+++ perl/sv.c Tue Nov 20 13:15:05 2001
@@ -295,18 +295,19 @@
return visited;
}
+#ifdef DEBUGGING
+
/* called by sv_report_used() for each live SV */
static void
do_report_used(pTHX_ SV *sv)
{
-#ifdef DEBUGGING
if (SvTYPE(sv) != SVTYPEMASK) {
PerlIO_printf(Perl_debug_log, "****\n");
sv_dump(sv);
}
+}
#endif
-}
/*
=for apidoc sv_report_used
End of Patch.
