This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Allow cow with $magic = $hashkey
authorFather Chrysostomos <sprout@cpan.org>
Fri, 26 Oct 2012 23:23:11 +0000 (16:23 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 27 Oct 2012 00:53:50 +0000 (17:53 -0700)
commitecd5fa70f3a9548089ec17b7e7a113ef808bd8e0
treef8b98255feba0b0995d18042276aab17600eb2e7
parent991fc03aa2feb1cd6ed4eb278f24bbf7c128d513
Allow cow with $magic = $hashkey

This was brought up in
<https://rt.perl.org/rt3/Ticket/Display.html?id=114820#txn-1165898>.

There is no reason we cannot assigned a shared hash key to a magical
scalar.  The only destination flag in CAN_COW_MASK that makes COW
assignment questionable is SVf_BREAK.  If such an assignment can hap-
pen (and I don’t believe it actually can), we will end up with unbal-
anced string table warnings.  So change the CAN_COW_MASK check to an
SVf_BREAK check.
sv.c