From: Ken Youens-Clark <kclark@cpan.org>
Date: Fri, 7 Nov 2003 17:27:06 +0000 (+0000)
Subject: Hardcoding PREREQ_PM, removing code that set it dynamically.
X-Git-Tag: v0.04^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a212a6f284a2586d9006c9017eb18a5cb6bd0b95;p=dbsrgits%2FSQL-Translator.git

Hardcoding PREREQ_PM, removing code that set it dynamically.
---

diff --git a/Makefile.PL b/Makefile.PL
index 8e55a5d..ce56a84 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2,59 +2,6 @@ package SQL::Translator;
 
 use strict;
 use ExtUtils::MakeMaker;
-$|++;
-
-my %PREREQ_PM;
-my %missing = (
-    optional => [ ],
-    required => [ ],
-);
-
-print "Checking for required and recommended modules.\n";
-#              Module Name              Version Optional?
-check_version('Class::Base'             => 0    => 0);
-check_version('File::Basename'          => 0    => 0);
-check_version('File::Spec'              => 0    => 0);
-check_version('GD'                      => 0    => 1);
-check_version('GraphViz'                => 0    => 1);
-check_version('IO::Dir'                 => 0    => 0);
-check_version('IO::File'                => 0    => 0);
-check_version('IO::Scalar'              => 0    => 0);
-check_version('Parse::RecDescent'       => 1.94 => 0);
-check_version('Pod::Usage'              => 0    => 0);
-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    => 0);
-check_version('Text::ParseWords'        => 0    => 0);
-check_version('Text::RecordParser'      => 0.02 => 0);
-check_version('XML::Writer'             => 0    => 1);
-check_version('XML::XPath'              => 1.13 => 1);
-check_version('YAML'                    => 0    => 1);
-
-print "\n";
-
-if (@{$missing{'optional'}} + @{$missing{'required'}}) {
-    print "Some components might not work correctly:\n";
-    my $count;
-    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'}}) {
-        $count = scalar(@{$missing{'optional'}});
-        printf "  You are missing %d optional module%s: %s\n",
-            $count,
-            $count == 1 ? '' : 's',
-            join ', ', @{$missing{'optional'}};
-    }
-
-    print "\n";
-}
 
 WriteMakefile(
     'NAME'         => __PACKAGE__,
@@ -65,70 +12,33 @@ WriteMakefile(
         'bin/sqlt-graph',
         'bin/sqlt',
     ],
-    'PREREQ_PM' => \%PREREQ_PM,
-    'clean' => {
+    'PREREQ_PM'    => {
+        'Class::Base'             => 0,
+        'File::Basename'          => 0,
+        'File::Spec'              => 0,
+        'GD'                      => 0,
+        'GraphViz'                => 0,
+        'IO::Dir'                 => 0,
+        'IO::File'                => 0,
+        'IO::Scalar'              => 0,
+        'Parse::RecDescent'       => 1.94,
+        'Pod::Usage'              => 0,
+        'Spreadsheet::ParseExcel' => 0,
+        'Template'                => 2.10,
+        'Test::More'              => 0,
+        'Test::Exception'         => 0,
+        'Test::Differences'       => 0,
+        'Text::ParseWords'        => 0,
+        'Text::RecordParser'      => 0.02,
+        'XML::Writer'             => 0,
+        'XML::XPath'              => 1.13,
+        'YAML'                    => 0,
+    },
+    'clean'        => {
         FILES => '$(DISTVNAME).tar$(SUFFIX)',
     },
 );
 
-# ----------------------------------------------------------------------
-# check_version($module, $version, $optional)
-#
-# Takes a module name, optional version number, and a flag indicating
-# whether the module is optional (default is no).
-# ----------------------------------------------------------------------
-sub check_version {
-    my ($module, $version, $optional) = @_;
-    my ($dots, $load);
-
-    if ($version) {
-        $version = sprintf "%.02f", $version;
-        $load = "$module $version";
-    }
-    else {
-        $load = $module;
-    }
-
-    $dots = '.' x (36 - length($load));
-
-    eval "use $load;";
-    if ($@) {
-        if ($optional) {
-            push @{$missing{'optional'}}, $module;
-        }
-        else {
-            push @{$missing{'required'}}, $module;
-        }
-        print "$load $dots not found!";
-        if ($optional) {
-            print optional('not found!'), "\n";
-            return;
-        }
-        print required('not found!');
-        print "\n";
-    }
-    else {
-        no strict qw(refs);
-        my $ver = sprintf "%.02f" => ${"$module\::VERSION"};
-        print "$load $dots $ver";
-        print $optional ? optional($ver) : required($ver);
-        print "\n";
-        $version = $ver;
-    }
-
-    $PREREQ_PM{$module} = $version;
-}
-
-sub optional { return _message("[optional]", @_) }
-sub required { return _message("", @_) }
-
-sub _message {
-    my ($message, $version) = @_;
-    my $size = 24 - (length "$version");
-    my $fmt = '%' . $size . 's';
-    sprintf $fmt => $message;
-}
-
 package MY;
 use File::Basename qw(basename);
 
@@ -141,4 +51,3 @@ sub libscan {
 
     return $self->SUPER::libscan($file);
 }
-