httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r109382 - /httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
Date Wed, 01 Dec 2004 21:59:34 GMT
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;
     }

Mime
View raw message