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 (file)
--- 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");