From: Artur Bergman <sky@nanisky.com>
Date: Wed, 24 Oct 2001 20:05:26 +0000 (+0000)
Subject: Change #12623 inflicted an infinite hang. Fixed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=313e3311ff463cfb1de02a3e944a3a32a6497023;p=p5sagit%2Fp5-mst-13.2.git

Change #12623 inflicted an infinite hang. Fixed.

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

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index d807b66..9ef9101 100644
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -46,7 +46,6 @@ int shared_sv_store_mg (pTHX_ SV* sv, MAGIC *mg) {
     if(SvROK(sv)) {
         shared_sv* target = Perl_sharedsv_find(aTHX_ SvRV(sv));
         if(!target) {
-            SHAREDSvRELEASE(shared);
             sv_setsv(sv,SHAREDSvGET(shared));
             SHAREDSvUNLOCK(shared);            
             Perl_croak(aTHX_ "You cannot assign a non shared reference to a shared scalar");