This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
$tied =~ s///e when FETCH returns a COW
authorFather Chrysostomos <sprout@cpan.org>
Fri, 2 Dec 2011 21:04:41 +0000 (13:04 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 2 Dec 2011 21:25:19 +0000 (13:25 -0800)
commit6fc2092288e8c25cd8ecb2c6139053f89a23e49a
treeeb9b3eb811f5d6357b2cb716db6b429a293cf937
parent4b476daa33ccf495c0ac155bb4ee5f77e349cb95
$tied =~ s///e when FETCH returns a COW

This used to cause an assertion failure, or sometimes ‘Attempt to free
nonexistent shared string’.

All that was required to fix it was the deletion of two cpp lines.
pp_ctl.c
t/re/subst.t