This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Build with -Dusemymalloc was broken
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 8 Oct 2007 14:09:23 +0000 (14:09 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 8 Oct 2007 14:09:23 +0000 (14:09 +0000)
p4raw-id: //depot/perl@32070

perl.c

diff --git a/perl.c b/perl.c
index 8b29386..26dcb6a 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2254,8 +2254,11 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
     FREETMPS;
 
 #ifdef MYMALLOC
+    {
+       const char *s;
     if ((s=PerlEnv_getenv("PERL_DEBUG_MSTATS")) && atoi(s) >= 2)
        dump_mstats("after compilation:");
+    }
 #endif
 
     ENTER;