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 (file)
--- 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) \