Threadsafe patches

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index b40e617..b36eb89 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -180,6 +180,7 @@ perl_construct(pTHXx)
 #  endif /* EMULATE_ATOMIC_REFCOUNTS */
        
        MUTEX_INIT(&PL_cred_mutex);
+       MUTEX_INIT(&PL_sv_lock_mutex);
 
        thr = init_main_thread();
 #endif /* USE_THREADS */