Protect sv_dump() from being included unless DEBUGGING,

as noticed by Ilya.

p4raw-id: //depot/perl@13098

diff --git a/sv.c b/sv.c
index 8453d28..7a0b5b3 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -300,10 +300,12 @@ S_visit(pTHX_ SVFUNC_t f)
 static void
 do_report_used(pTHX_ SV *sv)
 {
+#ifdef DEBUGGING
     if (SvTYPE(sv) != SVTYPEMASK) {
        PerlIO_printf(Perl_debug_log, "****\n");
        sv_dump(sv);
     }
+#endif
 }
 
 /*
@@ -317,7 +319,9 @@ Dump the contents of all SVs not yet freed. (Debugging aid).
 void
 Perl_sv_report_used(pTHX)
 {
+#ifdef DEBUGGING
     visit(do_report_used);
+#endif
 }
 
 /* called by sv_clean_objs() for each live SV */