Changes to quit using "SqlfXML."

[dbsrgits/SQL-Translator.git] / Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index 549808b..14b4c78 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -26,25 +26,25 @@ 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);
-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,
@@ -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;