From: Dan Kogai <dankogai@dan.co.jp>
Date: Thu, 2 May 2002 00:44:30 +0000 (+0900)
Subject: Re: Encode, charnames and utf8heavy
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=99a6b1f0987d0c61da40e4959c219c205f4e94f0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 *