From: Arthur Bergman <arthur@contiller.se>
Date: Wed, 15 Aug 2001 11:52:16 +0000 (+0200)
Subject: pp_lock
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba674f84c290c80e30477a6ed1e822a828ce2e1e;p=p5sagit%2Fp5-mst-13.2.git

pp_lock
Message-ID: <008401c1256f$f75a91b0$21000a0a@vogw2kdev>

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

diff --git a/pp.c b/pp.c
index 65b1f17..ee9d47e 100644
--- a/pp.c
+++ b/pp.c
@@ -4348,6 +4348,11 @@ PP(pp_lock)
 #ifdef USE_THREADS
     sv_lock(sv);
 #endif /* USE_THREADS */
+#ifdef USE_ITHREADS
+    shared_sv *ssv = Perl_sharedsv_find(aTHX_ sv);
+    if(ssv)
+        Perl_sharedsv_lock(aTHX_ ssv);
+#endif /* USE_ITHREADS */
     if (SvTYPE(retsv) == SVt_PVAV || SvTYPE(retsv) == SVt_PVHV
 	|| SvTYPE(retsv) == SVt_PVCV) {
 	retsv = refto(retsv);