'CPANPLUS' =>
{
'MAINTAINER' => 'kane',
- 'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9101.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9102.tar.gz',
'FILES' => q[cpan/CPANPLUS],
'EXCLUDED' => [ qr{^inc/},
qr{^t/dummy-.*\.hidden$},
use vars qw( @EXPORT @ISA $VERSION );
@EXPORT = qw( shell fetch get install );
@ISA = qw( Exporter );
- $VERSION = "0.9101"; #have to hardcode or cpan.org gets unhappy
+ $VERSION = "0.9102"; #have to hardcode or cpan.org gets unhappy
}
### purely for backward compatibility, so we can call it from the commandline:
use Params::Check qw[check];
use Module::Load::Conditional qw[can_load];
use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext';
+use version;
$Params::Check::VERBOSE = 1;
### as FAIL modules where prereqs are not filled
{ my $prq = $mod->status->prereqs || {};
- while( my($prq_name,$prq_ver) = each %$prq ) {
+ PREREQ: while( my($prq_name,$prq_ver) = each %$prq ) {
+
+ # 'perl' listed as prereq
+
+ if ( $prq_name eq 'perl' ) {
+ my $req_ver = eval { version->new( $prq_ver ) };
+ next PREREQ unless $req_ver;
+ if ( version->new( $] ) < $req_ver ) {
+ msg(loc("'%1' requires a higher version of perl than your current ".
+ "version -- sending N/A grade.", $name), $verbose);
+
+ $grade = GRADE_NA;
+ last GRADE;
+ }
+ }
+
my $obj = $cb->module_tree( $prq_name );
my $sub = CPANPLUS::Module->can(
'module_is_supplied_with_perl_core' );
$prq_name, $name ), $verbose );
$grade = GRADE_NA;
- last GRADE;
+ last GRADE;
}
if ( !$obj ) {
$name, $prq_ver ), $verbose );
$grade = GRADE_NA;
- last GRADE;
+ last GRADE;
}
}
$name, $prq_ver ), $verbose );
$grade = GRADE_NA;
- last GRADE;
+ last GRADE;
}
}
}
} elsif ( PERL_VERSION_TOO_LOW->( $buffer ) ) {
msg(loc("'%1' requires a higher version of perl than your current ".
"version -- sending N/A grade.", $name), $verbose);
-
- $grade = GRADE_NA;
+
+ $grade = GRADE_NA;
### perhaps where were no tests...
### see if the thing even had tests ###
$grade = GRADE_UNKNOWN
} else {
-
+
$grade = GRADE_FAIL;
}