From 408b8224928eece6e7c374d683dd38875d78da6b Mon Sep 17 00:00:00 2001
From: green <green@FreeBSD.org>
Date: Tue, 29 Aug 2000 23:38:12 +0000
Subject: Get rid of the old version.

---
 usr.bin/which/which.pl | 60 --------------------------------------------------
 1 file changed, 60 deletions(-)
 delete mode 100755 usr.bin/which/which.pl

(limited to 'usr.bin/which')

diff --git a/usr.bin/which/which.pl b/usr.bin/which/which.pl
deleted file mode 100755
index 781e1c1..0000000
--- a/usr.bin/which/which.pl
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/perl
-#
-# Copyright (c) 1995 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions
-# are met:
-# 1. Redistributions of source code must retain the above copyright
-#    notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-#    notice, this list of conditions and the following disclaimer in the
-#    documentation and/or other materials provided with the distribution.
-#
-# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
-# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
-# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
-# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-# SUCH DAMAGE.
-#
-# $FreeBSD$
-
-$all = $silent = $found = 0;
-@path = split(/:/, $ENV{'PATH'});
-if ($ENV{'PATH'} =~ /:$/) {
-	$#path = $#path + 1;
-	$path[$#path] = "";
-}
-
-if ($ARGV[0] eq "-a") {
-    $all = 1; shift @ARGV;
-} elsif ($ARGV[0] eq "-s") {
-    $silent = 1; shift @ARGV;
-} elsif ($ARGV[0] =~ /^-(h|help|\?)$/) {
-    die "usage: which [-a] [-s] program ...\n";
-}
-
-foreach $prog (@ARGV) {
-    if ("$prog" =~ '/' && -x "$prog" && -f "$prog") {
-	print "$prog\n" unless $silent;
-	$found = 1;
-    } else {
-	foreach $e (@path) {
-	    $e = "." if !$e;
-	    if (-x "$e/$prog" && -f "$e/$prog") {
-		print "$e/$prog\n" unless $silent;
-		$found = 1;
-		last unless $all;
-	    }
-	}
-    }
-}
-
-exit (!$found);
-- 
cgit v1.1