Correct obvious typo in comment.
[dragonfly.git] / usr.bin / which / which.pl
1 #!/usr/bin/perl
2 #
3 # Copyright (c) 1995 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
4 # All rights reserved.
5 #
6 # Redistribution and use in source and binary forms, with or without
7 # modification, are permitted provided that the following conditions
8 # are met:
9 # 1. Redistributions of source code must retain the above copyright
10 #    notice, this list of conditions and the following disclaimer.
11 # 2. Redistributions in binary form must reproduce the above copyright
12 #    notice, this list of conditions and the following disclaimer in the
13 #    documentation and/or other materials provided with the distribution.
14 #
15 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18 # ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25 # SUCH DAMAGE.
26 #
27 # $FreeBSD: src/usr.bin/which/which.pl,v 1.14 1999/08/28 01:07:39 peter Exp $
28 # $DragonFly: src/usr.bin/which/Attic/which.pl,v 1.2 2003/06/17 04:29:33 dillon Exp $
29
30 $all = $silent = $found = 0;
31 @path = split(/:/, $ENV{'PATH'});
32 if ($ENV{'PATH'} =~ /:$/) {
33         $#path = $#path + 1;
34         $path[$#path] = "";
35 }
36
37 if ($ARGV[0] eq "-a") {
38     $all = 1; shift @ARGV;
39 } elsif ($ARGV[0] eq "-s") {
40     $silent = 1; shift @ARGV;
41 } elsif ($ARGV[0] =~ /^-(h|help|\?)$/) {
42     die "usage: which [-a] [-s] program ...\n";
43 }
44
45 foreach $prog (@ARGV) {
46     if ("$prog" =~ '/' && -x "$prog" && -f "$prog") {
47         print "$prog\n" unless $silent;
48         $found = 1;
49     } else {
50         foreach $e (@path) {
51             $e = "." if !$e;
52             if (-x "$e/$prog" && -f "$e/$prog") {
53                 print "$e/$prog\n" unless $silent;
54                 $found = 1;
55                 last unless $all;
56             }
57         }
58     }
59 }
60
61 exit (!$found);