Changeset 5427

Show
Ignore:
Timestamp:
01/24/08 23:13:28 (7 years ago)
Author:
tokuhirom
Message:

use *.pl instead of *.yaml

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Encode-JP-Mobile/branches/character/lib/Encode/JP/Mobile/Character.pm

    r5403 r5427  
    7070    croak "invalid carrier name(docomo, kddi, softbank)" unless $carrier =~ /^(?:kddi|docomo|softbank)$/; 
    7171 
    72     # TODO: DO NOT USE YAML. 
    73     require YAML; 
    74     my $dat = YAML::LoadFile( dist_file('Encode-JP-Mobile', 'convert-map-utf8.yaml') ); 
    75     for my $from (qw/docomo softbank kddi/) { 
     72    my $src = dist_file('Encode-JP-Mobile', 'convert-map-utf8.pl'); 
     73    my $dat = do $src; 
     74    for my $from (keys %$dat) { 
    7675        if (my $row = $dat->{$from}->{sprintf '%X', $self->{unicode}}->{$carrier}) { 
    7776            if ($row->{type} eq 'name') {