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; }