Changeset 5429

Timestamp:

01/24/08 23:18:14 (5 years ago)

Author:

tokuhirom

Message:

optimize.

Files:

• lang/perl/Encode-JP-Mobile/branches/character/lib/Encode/JP/Mobile/Character.pm (modified) (3 diffs)

lang/perl/Encode-JP-Mobile/branches/character/lib/Encode/JP/Mobile/Character.pm

@@ -28 +28 @@
             for my $row (@$dat) {
                 next unless exists $row->{'name'};
-                $unicode2name->{ hex $row->{unicode} } =
-                  decode_utf8( $row->{'name'} );
+                $unicode2name->{ hex $row->{unicode} } = $row->{'name'};
                 if ( $carrier eq 'kddi' ) {
-                    $unicode2name->{ hex $row->{unicode_auto} } =
-                      decode_utf8( $row->{'name'} );
+                    $unicode2name->{ hex $row->{unicode_auto} } = $row->{'name'};
                 }
             }
@@ -38 +36 @@
     }
 
-    return $unicode2name->{$self->{unicode}};
+    return decode_utf8 $unicode2name->{$self->{unicode}};
 }
 
@@ -52 +50 @@
             for my $row (@$dat) {
                 next unless exists $row->{'number'};
-                $unicode2number->{ hex $row->{unicode} } =
-                  decode_utf8( $row->{'number'} );
+                $unicode2number->{ hex $row->{unicode} } = $row->{'number'};
                 if ( $carrier eq 'kddi' ) {
-                    $unicode2number->{ hex $row->{unicode_auto} } =
-                      decode_utf8( $row->{'number'} );
+                    $unicode2number->{ hex $row->{unicode_auto} } = $row->{'number'};
                 }
             }