Generic file changes for MYMALLOC

p4raw-id: //depot/ansiperl@260

diff --git a/miniperlmain.c b/miniperlmain.c
index 27ad541..81e6493 100644 (file)
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -25,6 +25,10 @@ char **env;
 {
     int exitstatus;
 
+#ifdef USE_THREADS
+    MUTEX_INIT(&malloc_mutex); 
+#endif
+
     PERL_SYS_INIT(&argc,&argv);
 
     perl_init_i18nl10n(1);