Changeset 4919 for lang/perl/Net-CIDR-MobileJP

Timestamp:

01/19/08 05:07:46 (5 years ago)

Author:

yappo

Message:

revert revision 4905, 4906, 4907, 4908, 4909

Location:

lang/perl/Net-CIDR-MobileJP/tags/0.10

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (2 diffs)
• Makefile.PL (modified) (2 diffs)
• lib/Net/CIDR/MobileJP.pm (modified) (1 diff)
• lib/Net/CIDR/MobileJP/Scraper.pm (modified) (2 diffs)

lang/perl/Net-CIDR-MobileJP/tags/0.10/Changes

@@ -1 +1 @@
 Revision history for Net-CIDR-MobileJP
+
+0.10
+    fix a build problem
 
 0.0.9  Thu Dec  6 18:21:39 PST 2007

lang/perl/Net-CIDR-MobileJP/tags/0.10/MANIFEST

@@ -22 +22 @@
 net-cidr-mobilejp-scraper.pl
 README
-share/DUMMY
 t/00.load.t
 t/01.base.t
@@ -29 +28 @@
 t/spelling.t
 t/test.yaml
+share/cidr.yaml

lang/perl/Net-CIDR-MobileJP/tags/0.10/Makefile.PL

@@ -3 +3 @@
 use lib qw(lib);
 use inc::Module::Install;
-use YAML;
 use File::Spec;
 
 sub GenYAML {
+    eval "require YAML";
+    if ($@) {
+        print "YAML.pm not found. please run net-cidr-mobilejp-scraper.pl manualy\n";
+        return;
+    }
+
     open(my $fh, '>', File::Spec->catfile('share', 'cidr.yaml')) or die "can't open file";
     require Net::CIDR::MobileJP::Scraper;
@@ -18 +23 @@
 requires 'HTTP::MobileAgent'    => 0;
 requires 'Net::CIDR::Lite'      => 0;
-requires 'UNIVERSAL::require'   => 0;
 requires 'YAML'                 => 0;
 requires 'version'              => 0;
 requires 'File::ShareDir'       => 0;
-requires 'WWW::MobileCarrierJP' => 0;
+
+build_requires 'WWW::MobileCarrierJP' => 0;
 
 install_share;

lang/perl/Net-CIDR-MobileJP/tags/0.10/lib/Net/CIDR/MobileJP.pm

@@ -6 +6 @@
 use Net::CIDR::Lite;
 use File::ShareDir ();
-our $VERSION = '0.0.9';
+our $VERSION = '0.10';
 
 sub new {

lang/perl/Net-CIDR-MobileJP/tags/0.10/lib/Net/CIDR/MobileJP/Scraper.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use UNIVERSAL::require;
 use WWW::MobileCarrierJP::DoCoMo::CIDR;
+use WWW::MobileCarrierJP::EZWeb::CIDR;
+use WWW::MobileCarrierJP::AirHPhone::CIDR;
+use WWW::MobileCarrierJP::ThirdForce::CIDR;
 
 my $short_name_for = +{
@@ -20 +22 @@
     for my $carrier (qw/DoCoMo EZWeb AirHPhone ThirdForce/) {
         my $class = "WWW::MobileCarrierJP::${carrier}::CIDR";
-        $class->use or die $@;
         my $dat = $class->scrape;
         $result->{$short_name_for->{$carrier}} = [map { "$_->{ip}$_->{subnetmask}" } @$dat];