Change 12625 by sky@sky-borderline on 2001/10/24 20:05:26
Change #12623 inflicted an infinite hang. Fixed.
Affected files ...
... //depot/perl/ext/threads/shared/shared.xs#6 edit
Differences ...
==== //depot/perl/ext/threads/shared/shared.xs#6 (text) ====
Index: perl/ext/threads/shared/shared.xs
--- perl/ext/threads/shared/shared.xs.~1~ Wed Oct 24 14:15:05 2001
+++ perl/ext/threads/shared/shared.xs Wed Oct 24 14:15:05 2001
@@ -46,7 +46,6 @@
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");
End of Patch.
