From ba674f84c290c80e30477a6ed1e822a828ce2e1e Mon Sep 17 00:00:00 2001
From: Arthur Bergman <arthur@contiller.se>
Date: Wed, 15 Aug 2001 13:52:16 +0200
Subject: [PATCH] pp_lock Message-ID:
 <008401c1256f$f75a91b0$21000a0a@vogw2kdev>

p4raw-id: //depot/perl@11678
---
 pp.c | 5 +++++
 1 file changed, 5 insertions(+)

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);
-- 
2.7.4