Change 18035 by [EMAIL PROTECTED] on 2002/10/20 13:39:09
Subject: Re: [perl #17951] Strange UTF error
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Date: Wed, 16 Oct 2002 18:50:51 +0300
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/utf8_heavy.pl#40 edit
.... //depot/perl/t/run/fresh_perl.t#17 edit
Differences ...
==== //depot/perl/lib/utf8_heavy.pl#40 (text) ====
Index: perl/lib/utf8_heavy.pl
--- perl/lib/utf8_heavy.pl#39~17933~ Thu Sep 26 10:01:11 2002
+++ perl/lib/utf8_heavy.pl Sun Oct 20 06:39:09 2002
@@ -149,8 +149,10 @@
no warnings;
$extras = join '', grep /^[^0-9a-fA-F]/, @tmp;
$list = join '',
- sort { hex $a <=> hex $b }
- grep {/^([0-9a-fA-F]+)/ and not $seen{$1}++} @tmp; # XXX doesn't do ranges
right
+ map { $_->[1] }
+ sort { $a->[0] <=> $b->[0] }
+ map { /^([0-9a-fA-F]+)/; [ hex($1), $_ ] }
+ grep { /^([0-9a-fA-F]+)/ and not $seen{$1}++ } @tmp; # XXX doesn't do
+ranges right
}
if ($none) {
==== //depot/perl/t/run/fresh_perl.t#17 (text) ====
Index: perl/t/run/fresh_perl.t
--- perl/t/run/fresh_perl.t#16~17407~ Sun Jul 7 10:04:27 2002
+++ perl/t/run/fresh_perl.t Sun Oct 20 06:39:09 2002
@@ -844,3 +844,17 @@
######## [ID 20020623.009] nested eval/sub segfaults
$eval = eval 'sub { eval "sub { %S }" }';
$eval->({});
+######## [perl #17951] Strange UTF error
+-W
+# From: "John Kodis" <[EMAIL PROTECTED]>
+# Newsgroups: comp.lang.perl.moderated
+# Subject: Strange UTF error
+# Date: Fri, 11 Oct 2002 16:19:58 -0400
+# Message-ID: <[EMAIL PROTECTED]>
+$_ = "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
End of Patch.
