From 0b85419f77869b943323c3656d8900f9ad6e1dfc Mon Sep 17 00:00:00 2001
From: Max Kanat-Alexander <mkanat@bugzilla.org>
Date: Mon, 22 Feb 2010 16:14:23 -0800
Subject: Bug 547336: Make installation work on Windows with Strawberry Perl
 Professional r=glob, a=mkanat

---
 install-module.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'install-module.pl')

diff --git a/install-module.pl b/install-module.pl
index 241972211..44457c400 100755
--- a/install-module.pl
+++ b/install-module.pl
@@ -47,9 +47,12 @@ GetOptions(\%switch, 'all|a', 'upgrade-all|u', 'show-config|s', 'global|g',
 
 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";
+if (ON_ACTIVESTATE) {
+    print <<END;
+You cannot run this script when using ActiveState Perl. Please follow
+the instructions given by checksetup.pl to install missing Perl modules.
+
+END
     exit;
 }
 
-- 
cgit v1.2.3-24-g4f1b