Change 11678 by jhi@alpha on 2001/08/15 12:27:41
Subject: [PATCH] pp_lock
From: "Arthur Bergman" <[EMAIL PROTECTED]>
Date: Wed, 15 Aug 2001 11:52:16 +0200
Message-ID: <008401c1256f$f75a91b0$21000a0a@vogw2kdev>
Affected files ...
... //depot/perl/pp.c#294 edit
Differences ...
==== //depot/perl/pp.c#294 (text) ====
Index: perl/pp.c
--- perl/pp.c.~1~ Wed Aug 15 06:30:06 2001
+++ perl/pp.c Wed Aug 15 06:30:06 2001
@@ -4348,6 +4348,11 @@
#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);
End of Patch.
