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

Support german Linux/GNU man pages.

Browse Source
This commit is contained in:
wosch 1997-03-13 17:56:01 +00:00
parent 55186ebb5b
commit 463d2ef961
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/usr.bin/man/makewhatis/makewhatis.perl
View File

@ -26,7 +26,7 @@
#
# makewhatis -- update the whatis database in the man directories.
#
# $Id: makewhatis.perl,v 1.13 1997/02/22 15:47:03 peter Exp $
# $Id: makewhatis.perl,v 1.14 1997/03/01 15:20:50 wosch Exp $
sub usage {
@ -337,7 +337,7 @@ sub manual {
while(<F>) {
# ``man'' style pages
# &&: it takes you only half the user time, regexp is slow!!!
if (/^\.SH/ && /^\.SH[ \t]+["]?(NAME|Name|NAMN)["]?/) {
if (/^\.SH/ && /^\.SH[ \t]+["]?(NAME|Name|NAMN|BEZEICHNUNG)["]?/) {
#while(<F>) { last unless /^\./ } # Skip
#chop; $list = $_;
while(<F>) {