[svk-commit] r3029 - in trunk: lib/SVK

[nobody at bestpractical.com]

Author: sartak
Date: Thu Jul 31 17:12:06 2008
New Revision: 3029

Modified:
   trunk/   (props changed)
   trunk/lib/SVK/Util.pm

Log:
 r68215 at onn:  sartak | 2008-07-31 17:11:23 -0400
 directories should return false for can_run


Modified: trunk/lib/SVK/Util.pm
==============================================================================
--- trunk/lib/SVK/Util.pm	(original)
+++ trunk/lib/SVK/Util.pm	Thu Jul 31 17:12:06 2008
@@ -814,6 +814,7 @@
 
     for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), @path, '.') {
         my $abs = catfile($dir, $_[0]);
+        next if -d $abs;
         return $abs if (-x $abs or $abs = is_executable($abs));
     }