Change 16354 by jhi@alpha on 2002/05/02 22:22:42
Subject: Re: Encode, charnames and utf8heavy
From: Dan Kogai <[EMAIL PROTECTED]>
Date: Thu, 2 May 2002 00:44:30 +0900
Message-Id: <[EMAIL PROTECTED]>
(plus a respective perlunicode tweak)
Affected files ...
.... //depot/perl/lib/utf8_heavy.pl#37 edit
.... //depot/perl/pod/perlunicode.pod#101 edit
Differences ...
==== //depot/perl/lib/utf8_heavy.pl#37 (text) ====
Index: perl/lib/utf8_heavy.pl
--- perl/lib/utf8_heavy.pl.~1~ Thu May 2 16:30:05 2002
+++ perl/lib/utf8_heavy.pl Thu May 2 16:30:05 2002
@@ -271,7 +271,7 @@
}
else {
LINE:
- while (/^([0-9a-fA-F]+)(?:\t([0-9a-fA-F]+))?/mg) {
+ while (/^([0-9a-fA-F]+)(?:[ \t]+([0-9a-fA-F]+))?/mg) {
my $min = hex $1;
my $max = (defined $2 ? hex $2 : $min);
next if $max < $start;
==== //depot/perl/pod/perlunicode.pod#101 (text) ====
Index: perl/pod/perlunicode.pod
--- perl/pod/perlunicode.pod.~1~ Thu May 2 16:30:05 2002
+++ perl/pod/perlunicode.pod Thu May 2 16:30:05 2002
@@ -630,8 +630,8 @@
=item *
-Two hexadecimal numbers separated by a tabulator denoting a range
-of Unicode codepoints to include.
+Two hexadecimal numbers separated by horizontal whitespace (space or
+tabulator characters) denoting a range of Unicode codepoints to include.
=item *
End of Patch.
