check_version('Template' => 2.10 => 1);
check_version('Test::More' => 0 => 0);
check_version('Test::Exception' => 0 => 0);
-check_version('Test::Differences' => 0 => 1);
+check_version('Test::Differences' => 0 => 0);
check_version('Text::ParseWords' => 0 => 0);
check_version('Text::RecordParser' => 0.02 => 0);
check_version('XML::Writer' => 0 => 1);
-check_version('XML::XPath' => 0 => 1);
+check_version('XML::XPath' => 1.13 => 1);
print "\n";
if (@{$missing{'optional'}} + @{$missing{'required'}}) {
print "Some components might not work correctly:\n";
my $count;
- if ($missing{'required'}) {
+ if (@{$missing{'required'}}) {
$count = scalar(@{$missing{'required'}});
printf " You are missing %d required module%s: %s\n",
$count,
$count == 1 ? '' : 's',
join ', ', @{$missing{'required'}};
}
- if ($missing{'optional'}) {
+ if (@{$missing{'optional'}}) {
$count = scalar(@{$missing{'optional'}});
printf " You are missing %d optional module%s: %s\n",
$count,
my ($dots, $load);
if ($version) {
+ $version = sprintf "%.02f", $version;
$load = "$module $version";
}
else {
}
else {
no strict qw(refs);
- my $version = ${"$module\::VERSION"};
- print "$load $dots $version";
- print $optional ? optional($version) : required($version);
+ my $ver = sprintf "%.02f" => ${"$module\::VERSION"};
+ print "$load $dots $ver";
+ print $optional ? optional($ver) : required($ver);
print "\n";
+ $version = $ver;
}
$PREREQ_PM{$module} = $version;