Add the test of [perl #8760] (fixed by change #18656).

p4raw-link: @18656 on //depot/perl: 834a3ffa15e23871424d94f91fd39fe77b05f76b

p4raw-id: //depot/perl@18662

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index a07396f..2f8baa6 100644 (file)
--- 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.
+
+