mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2024-11-28 08:02:54 +00:00
Code Issues Releases Activity

fix perl indention style

Browse Source
This commit is contained in:
Wolfram Schneider 1996-10-27 15:50:40 +00:00
parent 510681905e
commit 8fe31d5429
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=19207
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);