diff options
-rwxr-xr-x | usr.bin/which/which.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/usr.bin/which/which.pl b/usr.bin/which/which.pl index 678466b..edf4c20 100755 --- a/usr.bin/which/which.pl +++ b/usr.bin/which/which.pl @@ -31,7 +31,7 @@ # # [whew!] # -# $Id: which.pl,v 1.4 1995/01/30 22:21:29 jkh Exp $ +# $Id: which.pl,v 1.5 1995/07/31 04:22:07 asami Exp $ $all = 0; $silent = 0; @@ -47,7 +47,7 @@ if ($ARGV[0] eq "-a") { } foreach $prog (@ARGV) { - if (-x "$prog") { + if ("$prog" =~ '/' && -x "$prog") { print "$prog\n" unless $silent; $found = 1; } else { |