diff options
author | hoek <hoek@FreeBSD.org> | 1999-06-21 19:52:09 +0000 |
---|---|---|
committer | hoek <hoek@FreeBSD.org> | 1999-06-21 19:52:09 +0000 |
commit | 187aef71ff123b9113f9d1d44edea5225fb175b9 (patch) | |
tree | f97a86f9e1173334151a1372e96c1df5def729c9 /usr.bin/whereis/whereis.pl | |
parent | 3d09e3478e6a15a90f52c2412d260751cc4d0147 (diff) | |
download | FreeBSD-src-187aef71ff123b9113f9d1d44edea5225fb175b9.zip FreeBSD-src-187aef71ff123b9113f9d1d44edea5225fb175b9.tar.gz |
Don't strip trailing .suffixes from filenames. Although obviously
intentional, this behaviour is far too obnoxious given the number of
filenames such as rpc.statd we have.
Submitted by: Chris Costello [3]chris@calldei.com (bin/11303)
Diffstat (limited to 'usr.bin/whereis/whereis.pl')
-rw-r--r-- | usr.bin/whereis/whereis.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/usr.bin/whereis/whereis.pl b/usr.bin/whereis/whereis.pl index 3835253..f53d2a6 100644 --- a/usr.bin/whereis/whereis.pl +++ b/usr.bin/whereis/whereis.pl @@ -28,7 +28,7 @@ # # Rewritten from scratch for FreeBSD after the 4.3BSD manual page. # -# $Id: whereis.pl,v 1.5 1997/12/22 19:11:28 ache Exp $ +# $Id: whereis.pl,v 1.6 1998/10/04 10:33:37 obrien Exp $ # sub usage @@ -176,7 +176,6 @@ foreach $name (@names) { $name =~ s|^.*/||; # strip leading path name component $name =~ s/,v$//; $name =~ s/^s\.//; # RCS or SCCS suffix/prefix $name =~ s/\.(Z|z|gz)$//; # compression suffix - $name =~ s/\.[^.]+//; # any other suffix $line = ""; $unusual = 0; |