X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=14b4c78f23063089cacf6756bc270b2856726362;hb=a3e70d0b598904f02d06ac85e8975bb64d6937fd;hp=6a0898948d18c78325c209ef76af050c1eaaeeec;hpb=0d0a615b9b719377ca2ff05d0c5a09150cdfa5e8;p=dbsrgits%2FSQL-Translator.git

diff --git a/Makefile.PL b/Makefile.PL
index 6a08989..14b4c78 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -26,7 +26,7 @@ check_version('Spreadsheet::ParseExcel' => 0    => 1);
 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);
@@ -37,14 +37,14 @@ 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,
@@ -81,6 +81,7 @@ sub check_version {
     my ($dots, $load);
 
     if ($version) {
+        $version = sprintf "%.02f", $version;
         $load = "$module $version";
     }
     else {
@@ -107,10 +108,11 @@ sub check_version {
     }
     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;