Stop double initialisation of malloc_mutex:

	Subject: 5.004_55: Double initialiazation of malloc_mutex

p4raw-id: //depot/perl@316

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

diff --git a/win32/perllib.c b/win32/perllib.c
index c24941f..8483606 100644 (file)
--- a/win32/perllib.c
+++ b/win32/perllib.c
@@ -15,10 +15,6 @@ RunPerl(int argc, char **argv, char **env, void *iosubsystem)
     int exitstatus;
     PerlInterpreter *my_perl;
 
-#ifdef USE_THREADS
-    MUTEX_INIT(&malloc_mutex); 
-#endif
-
     PERL_SYS_INIT(&argc,&argv);
 
     perl_init_i18nl10n(1);