Changeset 2714

Show
Ignore:
Timestamp:
12/07/07 11:05:59 (6 years ago)
Author:
tokuhirom
Message:

lang/perl/Net-CIDR-MobileJP: softabnk is Thirdforce!!

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Net-CIDR-MobileJP/trunk/lib/Net/CIDR/MobileJP/Scraper.pm

    r2713 r2714  
    99    EZWeb      => 'E', 
    1010    AirHPhone  => 'H', 
    11     SoftBank   => 'S', 
    1211    ThirdForce => 'V', 
    1312}; 
    … …  
    1918 
    2019    my $result; 
    21     for my $carrier (qw/DoCoMo EZWeb AirHPhone SoftBank ThirdForce/) { 
     20    for my $carrier (qw/DoCoMo EZWeb AirHPhone ThirdForce/) { 
    2221        my $class = "WWW::MobileCarrierJP::${carrier}::CIDR"; 
    2322        $class->use or die $@;