From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 5 Feb 2003 19:40:38 +0000 (+0000)
Subject: Add the test of [perl #8760] (fixed by change #18656).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f49a093e7b863c27874fb2649a6d831e6715649;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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.
+
+