most globals are now interpreter local; locale initialization

was too early, defer it until interpreter is allocated and
initialized; multiple interpreters should now be
concurrency-safe (untested)

p4raw-id: //depot/perl@3527

1 files changed, 1 insertions, 1 deletions

diff --git a/malloc.c b/malloc.c
index 1bd777a8af..8a6a8bcb5f 100644
--- a/malloc.c
+++ b/malloc.c
@@ -308,7 +308,7 @@
 
 #ifdef DEBUGGING
 #  undef DEBUG_m
-#  define DEBUG_m(a)  if (PL_debug & 128)   a
+#  define DEBUG_m(a)  if (PL_curinterp && PL_debug & 128)   a
 #endif
 
 /*