1 files changed, 4 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 8453d286b6..7a0b5b3ac9 100644
--- 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 */