From 33f3c7b8444b48791ad016570a41a23483d750d2 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 4 Aug 2003 20:26:17 +0000 Subject: Fix bug #23141 : localization of readonly magic scalars now produces an error "Modification of a read-only value attempted", instead of silently failing. p4raw-id: //depot/perl@20479 --- scope.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scope.c') diff --git a/scope.c b/scope.c index f738b5b68c..673a312900 100644 --- a/scope.c +++ b/scope.c @@ -214,7 +214,7 @@ S_save_scalar_at(pTHX_ SV **sptr) PL_tainted = oldtainted; } SvMAGIC(sv) = SvMAGIC(osv); - SvFLAGS(sv) |= SvMAGICAL(osv); + SvFLAGS(sv) |= SvMAGICAL(osv) | SvREADONLY(osv); /* XXX SvMAGIC() is *shared* between osv and sv. This can * lead to coredumps when both SVs are destroyed without one * of their SvMAGIC() slots being NULLed. */ -- cgit v1.2.1