diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-05 19:40:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-05 19:40:38 +0000 |
| commit | 4f49a093e7b863c27874fb2649a6d831e6715649 (patch) | |
| tree | 249afa29b7d443d76a363cb6d6154e385a2eb287 /t | |
| parent | f119b0fbc96b5a61f080c4460880e3b51c825650 (diff) | |
| download | perl-4f49a093e7b863c27874fb2649a6d831e6715649.tar.gz | |
Add the test of [perl #8760] (fixed by change #18656).
p4raw-link: @18656 on //depot/perl: 834a3ffa15e23871424d94f91fd39fe77b05f76b
p4raw-id: //depot/perl@18662
Diffstat (limited to 't')
| -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. + + |