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

fix perl indention style

Browse Source
This commit is contained in:
wosch 1996-10-27 15:50:40 +00:00
parent 6a2b58912d
commit d7ad38d757
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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);