Make refcounts atomic for threading (dependent on appropriate

arch-dependent and compiler-dependent definitions in atomic.h
or else falls back to a global mutex to protect refcounts).

p4raw-id: //depot/perl@598

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 0c525579af..6d222cecae 100644
--- a/perl.c
+++ b/perl.c
@@ -130,6 +130,9 @@ perl_construct(register PerlInterpreter *sv_interp)
 	COND_INIT(&eval_cond);
 	MUTEX_INIT(&threads_mutex);
 	COND_INIT(&nthreads_cond);
+#ifdef EMULATE_ATOMIC_REFCOUNTS
+	MUTEX_INIT(&svref_mutex);
+#endif /* EMULATE_ATOMIC_REFCOUNTS */
 	
 	thr = init_main_thread();
 #endif /* USE_THREADS */