diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-10-16 21:50:51 +0300 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-20 13:39:09 +0000 |
| commit | df68b396123fb8eeaeb7770f8e4d190067a4d6e2 (patch) | |
| tree | 8df252f65b990aa9472adff1cddf853715c3c3af /t/run | |
| parent | 3f2ee0069d15f7a7d413167c0ad86d1545e6b534 (diff) | |
| download | perl-df68b396123fb8eeaeb7770f8e4d190067a4d6e2.tar.gz | |
Re: [perl #17951] Strange UTF error
Message-ID: <20021016155051.GB268437@lyta.hut.fi>
p4raw-id: //depot/perl@18035
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/fresh_perl.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index 9c2b42fc03..eb832693d8 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -844,3 +844,17 @@ ok 1 ######## [ID 20020623.009] nested eval/sub segfaults $eval = eval 'sub { eval "sub { %S }" }'; $eval->({}); +######## [perl #17951] Strange UTF error +-W +# From: "John Kodis" <kodis@mail630.gsfc.nasa.gov> +# Newsgroups: comp.lang.perl.moderated +# Subject: Strange UTF error +# Date: Fri, 11 Oct 2002 16:19:58 -0400 +# Message-ID: <pan.2002.10.11.20.19.48.407190@mail630.gsfc.nasa.gov> +$_ = "foobar\n"; +utf8::upgrade($_); # the original code used a UTF-8 locale (affects STDIN) +# matching is actually irrelevant: avoiding several dozen of these +# Illegal hexadecimal digit ' ' ignored at /usr/lib/perl5/5.8.0/utf8_heavy.pl line 152 +# is what matters. +/^([[:digit:]]+)/; +EXPECT |