From d7ad38d757c638be68a0aa414226f3564ad6e4fa Mon Sep 17 00:00:00 2001
From: wosch <wosch@FreeBSD.org>
Date: Sun, 27 Oct 1996 15:50:40 +0000
Subject: fix perl indention style

---
 usr.bin/which/which.pl | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

(limited to 'usr.bin/which')

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);
-- 
cgit v1.1