diff options
| -rw-r--r-- | t/run/fresh_perl.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index a07396f419..2f8baa6df4 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -819,3 +819,9 @@ if ($name =~ /(\p{IsUpper}) (\p{IsUpper})/){ } EXPECT It's good! >A< >B< +######## [perl #8760] strangness with utf8 and warn +$_="foo";utf8::upgrade($_);/bar/i,warn$_; +EXPECT +foo at - line 1. + + |