summaryrefslogtreecommitdiffstats
path: root/usr.bin
diff options
context:
space:
mode:
authorwosch <wosch@FreeBSD.org>1996-10-27 15:50:40 +0000
committerwosch <wosch@FreeBSD.org>1996-10-27 15:50:40 +0000
commitd7ad38d757c638be68a0aa414226f3564ad6e4fa (patch)
tree0c2611325a6b025037eaeb9f9b5c23c37e06a3a7 /usr.bin
parent6a2b58912d99ed7a63c93c709562c58759be8db5 (diff)
downloadFreeBSD-src-d7ad38d757c638be68a0aa414226f3564ad6e4fa.zip
FreeBSD-src-d7ad38d757c638be68a0aa414226f3564ad6e4fa.tar.gz
fix perl indention style
Diffstat (limited to 'usr.bin')
-rwxr-xr-xusr.bin/which/which.pl24
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);
OpenPOWER on IntegriCloud