d/freebsd-nq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Submitted by: Wolfram Schneider <w@cs.tu-berlin.de>

Browse Source 
The currently (1995/07/31 04:22:07) implemented if (-x "$prog") {
works only if you have '.' in your $PATH variable.
This commit is contained in:
Satoshi Asami 1995-08-02 07:30:37 +00:00
parent af2a00bbbc
commit b60de1afb0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
usr.bin/which/which.pl
View File

@ -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 {