From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 Nov 2001 17:37:26 +0000 (+0000)
Subject: Protect sv_dump() from being included unless DEBUGGING,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff270d3ac16fa8d51fc9a0dc2660901c9ee1e54f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 */