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
