diff options
Diffstat (limited to 'usr.bin/which/which.pl')
-rwxr-xr-x | usr.bin/which/which.pl | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/usr.bin/which/which.pl b/usr.bin/which/which.pl index 28c05f4..28c7af0 100755 --- a/usr.bin/which/which.pl +++ b/usr.bin/which/which.pl @@ -24,11 +24,9 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $Id: which.pl,v 1.6 1995/08/02 07:30:37 asami Exp $ +# $Id: which.pl,v 1.7 1996/08/27 20:04:32 wosch Exp $ -$all = 0; -$silent = 0; -$found = 0; +$all = $silent = $found = 0; @path = split(/:/, $ENV{'PATH'}); if ($ARGV[0] eq "-a") { @@ -41,17 +39,17 @@ if ($ARGV[0] eq "-a") { foreach $prog (@ARGV) { if ("$prog" =~ '/' && -x "$prog") { - print "$prog\n" unless $silent; - $found = 1; - } else { - foreach $e (@path) { - if (-x "$e/$prog") { - print "$e/$prog\n" unless $silent; - $found = 1; - last unless $all; - } + print "$prog\n" unless $silent; + $found = 1; + } else { + foreach $e (@path) { + if (-x "$e/$prog") { + print "$e/$prog\n" unless $silent; + $found = 1; + last unless $all; } } + } } exit (!$found); |