httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From wr...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm
Date Sat, 15 Jun 2002 00:54:13 GMT
wrowe       2002/06/14 17:54:13

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
    PATHEXT can include periods, the double periods were goofing up the -x
    test later.  Simply strip leading periods if they are found.
  
  Revision  Changes    Path
  1.138     +4 -0      httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
  
  Index: TestConfig.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
  retrieving revision 1.137
  retrieving revision 1.138
  diff -u -r1.137 -r1.138
  --- TestConfig.pm	3 Jun 2002 18:03:42 -0000	1.137
  +++ TestConfig.pm	15 Jun 2002 00:54:13 -0000	1.138
  @@ -1240,12 +1240,16 @@
   #utils
   
   #For Win32 systems, stores the extensions used for executable files
  +#They may be . prefixed, so we will strip the leading periods.
   
   my @path_ext = ();
   
   if (WIN32) {
       if ($ENV{PATHEXT}) {
           push @path_ext, split ';', $ENV{PATHEXT};
  +        for my $ext (@path_ext) {
  +            $ext =~ s/^\.*(.+)$/$1/;
  +        }
       }
       else {
           #Win9X: doesn't have PATHEXT
  
  
  

Mime
View raw message