From 031d3a6cf6310c7ffe321f9814a83ae2088cc215 Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Tue, 19 Aug 2008 04:27:50 +0000 Subject: Bug 450609: Add OS detection in install-module.pl to make it refuse to run on Windows - Patch by Frédéric Buclin r=mkanat a=LpSolit MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- install-module.pl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/install-module.pl b/install-module.pl index a0de6d70a..ca99ac23d 100644 --- a/install-module.pl +++ b/install-module.pl @@ -46,6 +46,13 @@ GetOptions(\%switch, 'all|a', 'upgrade-all|u', 'show-config|s', 'global|g', 'help|h'); pod2usage({ -verbose => 1 }) if $switch{'help'}; + +if (ON_WINDOWS) { + print "\nYou cannot run this script on Windows. Please follow instructions\n"; + print "given by checksetup.pl to install missing Perl modules.\n\n"; + exit; +} + pod2usage({ -verbose => 0 }) if (!%switch && !@ARGV); set_cpan_config($switch{'global'}); @@ -98,7 +105,8 @@ __END__ =head1 NAME -install-module.pl - Installs or upgrades modules from CPAN +install-module.pl - Installs or upgrades modules from CPAN. +This script does not run on Windows. =head1 SYNOPSIS -- cgit v1.2.3-24-g4f1b