From 1edbfb88dca645450f44e4bcbb3df8372f66c904 Mon Sep 17 00:00:00 2001
From: Artur Bergman <sky@nanisky.com>
Date: Tue, 23 Oct 2001 19:39:24 +0000
Subject: 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
---
 sv.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'sv.c')

diff --git a/sv.c b/sv.c
index ecf86e5808..44a114bdd9 100644
--- 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;
 }
-- 
cgit v1.2.1