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}
  
  
  

Reply via email to