From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 8 Oct 2007 14:09:23 +0000 (+0000)
Subject: Build with -Dusemymalloc was broken
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f6a607bc50237c7300eac070046e6ebc9d939b3c;p=p5sagit%2Fp5-mst-13.2.git

Build with -Dusemymalloc was broken

p4raw-id: //depot/perl@32070
---

diff --git a/perl.c b/perl.c
index 8b29386..26dcb6a 100644
--- 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;