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

Don't ignore empty components of $PATH, i. e. colon at the beginning,

Browse Source 
the end or two successive colons.

Reviewed and improved by wosch.
This commit is contained in:
helbig 1998-01-02 13:46:25 +00:00
parent d9810a8a17
commit 197f0b69d7
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,10 +24,14 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id: which.pl,v 1.10 1997/02/22 19:57:51 peter Exp $
# $Id: which.pl,v 1.11 1997/08/26 11:13:39 charnier Exp $
$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;
@ -43,6 +47,7 @@ foreach $prog (@ARGV) {
$found = 1;
} else {
foreach $e (@path) {
$e = "." if !$e;
if (-x "$e/$prog") {
print "$e/$prog\n" unless $silent;
$found = 1;