Changeset 1378 for lang/perl/Encode-JP-Mobile/trunk/tools

Timestamp:

11/13/07 12:09:40 (12 months ago)

Author:

miyagawa

Message:

oops, wrong matched variables

Files:

• lang/perl/Encode-JP-Mobile/trunk/tools/kddi-extract.pl (modified) (1 diff)

lang/perl/Encode-JP-Mobile/trunk/tools/kddi-extract.pl

@@ -13 +13 @@
     while ($text =~ m/(\d+)(?: |[abcdef \x{FF43}\x{3000}]+|\x{306A}\x{3057} )([^ ]*) ([0-9A-F]{4})([0-9A-F]{4})([0-9A-F]{4})([0-9A-F]{4})/gs) {
         my %data;
-        @data{qw( number name sjis unicode email_jis email_sjis )} = ($1, $3, $4, $5, $6, $7);
+        @data{qw( number name sjis unicode email_jis email_sjis )} = ($1, $2, $3, $4, $5, $6);
         $data{name} =~ s/\n//g;
         push @res, \%data;