randyk 2003/04/23 21:34:26
Modified: . Makefile.PL
Log:
use WIN32 constant, as suggested by Stas.
Revision Changes Path
1.22 +5 -5 httpd-apreq/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/httpd-apreq/Makefile.PL,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- Makefile.PL 24 Apr 2003 03:18:22 -0000 1.21
+++ Makefile.PL 24 Apr 2003 04:34:26 -0000 1.22
@@ -8,8 +8,8 @@
use constant HAS_APACHE_TEST => eval {require Apache::Test};
-my $Is_Win32 = ($^O eq "MSWin32") || $ENV{WIN32_TEST};
-win32_setup() if $Is_Win32;
+use constant WIN32 => ($^O eq "MSWin32") || $ENV{WIN32_TEST};
+win32_setup() if WIN32;
# enable 'make test|clean'
if (HAS_APACHE_TEST) {
@@ -56,7 +56,7 @@
my $lib;
check_compat();
-if ($Is_Win32) {
+if (WIN32) {
require Cwd;
my $cwd = Cwd::cwd();
$cwd =~ s#\\#/#g;
@@ -97,7 +97,7 @@
return [qw( t/TEST )];
}
-if ($Is_Win32 and -e $lib) {
+if (WIN32 and -e $lib) {
unlink $lib or die "Cannot unlink $lib: $!\n";
}
@@ -151,7 +151,7 @@
$apache = prompt("Where is your apache.exe located?", $apache);
}
- die "Can't find apache.exe!" unless -e $apache;
+ die "Can't find Apache.exe!" unless -e $apache;
my $vers = qx{"$apache" -v};
die qq{"$apache" does not appear to be version 1.3}