diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-06-04 13:10:41 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-04 14:34:30 -0700 |
| commit | b2b95e4c717e3e7005a2a533840bce801ccf74bb (patch) | |
| tree | 2a137ee2e89fd6e082632a74fed90dc8314f02c5 /mg.c | |
| parent | fb2352ebbcdd380053ad8408a0613965b0ec2950 (diff) | |
| download | perl-b2b95e4c717e3e7005a2a533840bce801ccf74bb.tar.gz | |
Stop localised ties from becoming ro when COW
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -536,7 +536,7 @@ Perl_mg_localize(pTHX_ SV *sv, SV *nsv, bool setmagic) mg->mg_ptr, mg->mg_len); /* container types should remain read-only across localization */ - SvFLAGS(nsv) |= SvREADONLY(sv); + if (!SvIsCOW(sv)) SvFLAGS(nsv) |= SvREADONLY(sv); } if (SvTYPE(nsv) >= SVt_PVMG && SvMAGIC(nsv)) { |