diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-08-04 20:26:17 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-08-04 20:26:17 +0000 |
| commit | 33f3c7b8444b48791ad016570a41a23483d750d2 (patch) | |
| tree | 91c26caacb3caa2aa9093ddfb3bd3a4e76e4d62e /scope.c | |
| parent | f913803b6e67ae4c588683bcf7820e5997343335 (diff) | |
| download | perl-33f3c7b8444b48791ad016570a41a23483d750d2.tar.gz | |
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
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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. */ |