}
{
- # Make sure utf8::decode respects copy-on-write [perl #91834].
- # Hash keys are the easiest way to test this.
- my $name = "\x{c3}\x{b3}";
- my ($k1) = keys %{ { $name=>undef } };
- my $k2 = $name;
- utf8::decode($k1);
- utf8::decode($k2);
- my $h = { $k1 => 1, $k2 => 2 };
- is join('', keys $h), $k2, 'utf8::decode respects copy-on-write';
-}
-
-{
my $a = "456\xb6";
utf8::upgrade($a);
croak_xs_usage(cv, "sv");
else {
SV * const sv = ST(0);
- if (SvIsCOW(sv)) sv_force_normal(sv);
const bool RETVAL = sv_utf8_decode(sv);
ST(0) = boolSV(RETVAL);
sv_2mortal(ST(0));