From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 1 Mar 1999 03:32:30 +0000 (+0000)
Subject: destroy PL_svref_mutex in perl_destruct()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11d617a5325160ea52fabaf3a105ac49b9e104fd;p=p5sagit%2Fp5-mst-13.2.git

destroy PL_svref_mutex in perl_destruct()

p4raw-id: //depot/perl@3045
---

diff --git a/perl.c b/perl.c
index 836ec10..bda1498 100644
--- a/perl.c
+++ b/perl.c
@@ -563,6 +563,9 @@ perl_destruct(register PerlInterpreter *sv_interp)
     MUTEX_DESTROY(&PL_eval_mutex);
     MUTEX_DESTROY(&PL_cred_mutex);
     COND_DESTROY(&PL_eval_cond);
+#ifdef EMULATE_ATOMIC_REFCOUNTS
+    MUTEX_DESTROY(&PL_svref_mutex);
+#endif /* EMULATE_ATOMIC_REFCOUNTS */
 
     /* As the penultimate thing, free the non-arena SV for thrsv */
     Safefree(SvPVX(PL_thrsv));