3 # This is a test for rt.cpan.org 60508 which I can't figure out where else
4 # to put it or what the underlying problem is, but it has to go somewhere.
17 my $expect = <<"EXPECT";
22 utf8::encode($expect);
24 local $TODO = "rt.cpan.org 60508";
26 fresh_perl_is(<<'CODE', $expect, {});
27 binmode STDOUT, ":utf8";
28 sub f { $_[0] =~ s/([>X])//g; }
34 $k2 = "\x{f1}\x{2022}";
35 $k2 =~ s/([\360-\362])/>/g;