Change #12607 introduced a bug, seems like some MAGICAL SVs

don't call themselves READONLY but still die with modification
attempt. We only call bless for ext and umagic.

p4raw-id: //depot/perl@12610

diff --git a/sv.c b/sv.c
index ecf86e5..44a114b 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -7205,7 +7205,11 @@ Perl_sv_bless(pTHX_ SV *sv, HV *stash)
     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;
 }