Re: Bugs? In Unicode::EastAsianWidth.

Message-ID: <20050406101732.GA17931@aut.dyndns.org>

p4raw-id: //depot/perl@24191

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index c3320ed..e5480ca 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -1242,14 +1242,18 @@ sub EastAsianWidth_txt()
 
     while (<IN>)
     {
-       next unless /^[0-9A-Fa-f]+;/;
+       next unless /^[0-9A-Fa-f]+(\.\.[0-9A-Fa-f]+)?;/;
        s/#.*//;
        s/\s+$//;
 
-       my ($hexcode, $pv) = split(/\s*;\s*/);
-        my $code = hex($hexcode);
+       my ($hexcodes, $pv) = split(/\s*;\s*/);
         $EAW{$pv} ||= Table->New(Is => "EastAsianWidth$pv");
-        $EAW{$pv}->Append($code);
+      my ($start, $end) = split(/\.\./, $hexcodes);
+      if (defined $end) {
+        $EAW{$pv}->AppendRange(hex($start), hex($end));
+      } else {
+        $EAW{$pv}->Append(hex($start));
+      }
     }
     close IN;