From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 16 May 1999 01:28:18 +0000 (-0400)
Subject: Devel::Peek::mstat not working
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df1e65fbbe8180b71c539068fbd5de404db3b6ba;p=p5sagit%2Fp5-mst-13.2.git

Devel::Peek::mstat not working

To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199905160528.BAA23376@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@3427
---

diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs
index d193e31..d5066c1 100644
--- a/ext/Devel/Peek/Peek.xs
+++ b/ext/Devel/Peek/Peek.xs
@@ -116,7 +116,8 @@ DeadCode()
 }
 #endif /* !PURIFY */
 
-#if defined(PERL_DEBUGGING_MSTATS)
+#if defined(PERL_DEBUGGING_MSTATS) || defined(DEBUGGING_MSTATS) \
+	|| (defined(MYMALLOC) && !defined(PLAIN_MALLOC))
 #   define mstat(str) dump_mstats(str)
 #else
 #   define mstat(str) \