Change 12610 by sky@sky-borderline on 2001/10/23 19:39:24
Change #12607 introduced a bug, seems like some MAGICAL svs don't call
themselves
READONLY but still dies with modification attempt. We only call bless for ext
and
umagic.
Affected files ...
... //depot/perl/sv.c#478 edit
Differences ...
==== //depot/perl/sv.c#478 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Tue Oct 23 13:45:06 2001
+++ perl/sv.c Tue Oct 23 13:45:06 2001
@@ -7205,7 +7205,11 @@
else
SvAMAGIC_off(sv);
- SvSETMAGIC(tmpRef);
+ if(SvSMAGICAL(tmpRef))
+ if(mg_find(tmpRef, PERL_MAGIC_ext) || mg_find(tmpRef, PERL_MAGIC_uvar))
+ mg_set(tmpRef);
+
+
return sv;
}
End of Patch.
