projects / platform / upstream / perl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 742c16d)
Devel::Peek::mstat not working
authorIlya Zakharevich <ilya@math.berkeley.edu>
Sun, 16 May 1999 01:28:18 +0000 (21:28 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 16 May 1999 22:09:11 +0000 (22:09 +0000)
To: perl5-porters@perl.org (Mailing list Perl5)
Message-Id: <199905160528.BAA23376@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@3427

ext/Devel/Peek/Peek.xs patch | blob | history

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) \
Domain: System / Base;