You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2004/12/01 22:59:34 UTC
svn commit: r109382 - /httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
Author: stas
Date: Wed Dec 1 13:59:32 2004
New Revision: 109382
URL: http://svn.apache.org/viewcvs?view=rev&rev=109382
Log:
- drop unused code
- check whether the given via prompt path is a real file (for httpd/apxs)
Modified:
httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
Modified: httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
Url: http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm?view=diff&rev=109382&p1=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm&r1=109381&p2=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm&r2=109382
==============================================================================
--- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm (original)
+++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm Wed Dec 1 13:59:32 2004
@@ -2241,14 +2241,14 @@
}
unless (File::Spec->file_name_is_absolute($ans)) {
- my $cwd = Cwd::cwd();
warn "The path '$ans' is not an absolute path. " .
"Please specify an absolute path\n";
next;
}
- warn("'$ans' doesn't exist\n"), next unless -e $ans;
- warn("'$ans' is not executable\n"), next unless -x $ans;
+ warn("'$ans' doesn't exist.\n"), next unless -e $ans;
+ warn("'$ans' is not a file.\n"), next unless -f _;
+ warn("'$ans' is not executable.\n"), next unless -x _;
return $ans;
}