Changeset 5448 for lang/perl/Encode-JP-Mobile/trunk/tools/make-utf8-ucm.pl

Timestamp:

01/25/08 00:40:59 (10 months ago)

Author:

tokuhirom

Message:

merge Encode::JP::Mobile::Character branch to trunk.

Files:

• lang/perl/Encode-JP-Mobile/trunk/tools/make-utf8-ucm.pl (modified) (1 diff)

lang/perl/Encode-JP-Mobile/trunk/tools/make-utf8-ucm.pl

@@ -36 +36 @@
 
                 for my $srcuni (sort keys %{$map->{$from}}) {
-                    my $dstuni = $map->{$from}{$srcuni}{$to} or next;
-                    printf {$fh} "<U%s> %s |1 # %s\n", $srcuni, unihex2utf8hex($dstuni), comment_for($from);
+                    my $dstuni = $map->{$from}->{$srcuni}->{$to} or next;
+                    next unless $dstuni->{type} eq 'pictogram';
+                    printf {$fh} "<U%s> %s |1 # %s\n", $srcuni, unihex2utf8hex($dstuni->{unicode}), comment_for($from);
                 }
             }