Re: Encode, charnames and utf8heavy

Message-Id: <539D985A-5D1A-11D6-BB19-00039301D480@dan.co.jp>

(plus a respective perlunicode tweak)

p4raw-id: //depot/perl@16354

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index d5a0b33..72ef547 100644 (file)
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -271,7 +271,7 @@ sub SWASHGET {
        }
        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;

diff --git a/pod/perlunicode.pod b/pod/perlunicode.pod
index 17e070c..12296c0 100644 (file)
--- a/pod/perlunicode.pod
+++ b/pod/perlunicode.pod
@@ -630,8 +630,8 @@ newline-separated lines.  Each line must be one of the following:
 
 =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 *