From ff270d3ac16fa8d51fc9a0dc2660901c9ee1e54f Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 Nov 2001 17:37:26 +0000
Subject: [PATCH] Protect sv_dump() from being included unless DEBUGGING, as
 noticed by Ilya.

p4raw-id: //depot/perl@13098
---
 sv.c | 4 ++++
 1 file changed, 4 insertions(+)

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