Build with -Dusemymalloc was broken

p4raw-id: //depot/perl@32070

1 files changed, 3 insertions, 0 deletions

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