From 2d784a773f21dd8eaf90edff7e3c49f1d242fd5d Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Tue, 30 Mar 2004 21:25:24 +0000
Subject: Bug 237508: Have checksetup.pl specify which perl to use (the same
 one it's running under) when giving instructions how to use CPAN to install
 needed modules. r= jouni, a= justdave

---
 checksetup.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'checksetup.pl')

diff --git a/checksetup.pl b/checksetup.pl
index f2e14bf34..4efbc2cf4 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -272,6 +272,7 @@ my $modules = [
 
 my %ppm_modules = (
     'AppConfig'         => 'AppConfig',
+    'Chart::Base'       => 'Chart',
     'CGI'               => 'CGI',
     'Data::Dumper'      => 'Data-Dumper',
     'Date::Format'      => 'TimeDate',
@@ -290,7 +291,7 @@ sub install_command {
         return "ppm install " . $ppm_modules{$module} if exists $ppm_modules{$module};
         return "ppm install " . $module;
     } else {
-        return "perl -MCPAN -e 'install \"$module\"'";
+        return "$^X -MCPAN -e 'install \"$module\"'";
     }    
 }
 
@@ -330,8 +331,7 @@ if ((!$gd || !$chartbase) && !$silent) {
     print "If you you want to see graphical bug charts (plotting historical ";
     print "data over \ntime), you should install libgd and the following Perl ";     print "modules:\n\n";
     print "GD:          " . install_command("GD") ."\n" if !$gd;
-    print "Chart 0.99b: perl -MCPAN " . 
-          "-e'install \"N/NI/NINJAZ/Chart-0.99b.tar.gz\"'\n" if !$chartbase;
+    print "Chart 0.99b: " . install_command("Chart::Base") . "\n" if !$chartbase;
     print "\n";
 }
 if (!$xmlparser && !$silent) {
-- 
cgit v1.2.3-24-g4f1b