This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_subtr: preserve UTF8 flag in rare cases
authorDavid Mitchell <davem@iabyn.com>
Sat, 5 Feb 2011 13:32:24 +0000 (13:32 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 6 Feb 2011 21:34:43 +0000 (21:34 +0000)
commit4b8811a5cd97a5737e826c610fd55a730539fbde
treee0c417bb76d97759a9bed8e974d3fb014ebc0aa2
parent28b52d6a9d389ca6d1647f2c7db483631b898dc0
pp_subtr: preserve UTF8 flag in rare cases

There are two main branches in pp_subtr(): the 'in-place' and the other,
depending on whether the replacement string is short enough to be inserted
directly. Commit 80b498e0aacf413fb7460d6882a74c68c1f9df48 back in 2000
changed a SvPOK_only() to a SvPOK_only_UTF8() to preserve the UTF8 bit,
but only on *one* branch. Add the change to the other branch too. This
will only make a difference in rare cases involving 'use bytes' (where it's
arguably broken  and generating malformed utf8 anyway); but the main
reason for doing it is to allow soon for some identical code in the two
branches to be de-duplicated.
pp_hot.c
t/op/bop.t