Changeset 4880

Timestamp:

01/18/08 16:21:34 (5 years ago)

Author:

miyagawa

Message:

KDDI/SoftBank の英語名について、DoCoMoからマッピングしたので同一の英語名が複数の文字に割り当てられるようになった。同一のものについては、コードが若い方を優先するように変更。

Location:

lang/perl/Encode-JP-Mobile/trunk

Files:

• lib/Encode/JP/Mobile/Charnames.pm (modified) (1 diff)
• t/charnames.t (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/Charnames.pm

@@ -69 +69 @@
         for my $row (@$dat) {
             next unless exists $row->{name};
-            $name2unicode->{$carrier}{$row->{name}} = hex $row->{unicode};
+            $name2unicode->{$carrier}{$row->{name}} ||= hex $row->{unicode};
             if ( exists $row->{name_en} ) {
-                $name2unicode->{$carrier}{$row->{name_en}} = hex $row->{unicode};
+                $name2unicode->{$carrier}{$row->{name_en}} ||= hex $row->{unicode};
             }
         }

lang/perl/Encode-JP-Mobile/trunk/t/charnames.t

@@ -2 +2 @@
 use warnings;
 use Data::Dumper;
-use Test::More tests => 27;
+use Test::More tests => 29;
 use Encode;
 
@@ -32 +32 @@
 is unicode2name_en(0xE047), 'Beer'; # Softbank
 
-is sprintf("%X", unpack "U*", "\N{DoCoMo Beer}"), "E672";
-is sprintf("%X", unpack "U*", "\N{DoCoMo ファーストフード}"), "E673";
-is sprintf("%X", unpack "U*", "\N{DIGIT SIX}"), "36";
+is "\N{DoCoMo Beer}", "\x{E672}";
+is "\N{DoCoMo ファーストフード}", "\x{E673}";
+is "\N{KDDI Beer}", "\x{E4C3}";
+is "\N{SoftBank Beer}", "\x{E047}";
+
+is "\N{DIGIT SIX}", "6";
 
 is Encode::is_utf8("\N{DoCoMo Beer}"), 1;