Bugfix for man pages created by perlpod(1).
Submitted by: Slaven Reziæ (Tomiæ) <eserte@cs.tu-berlin.de>
This commit is contained in:
parent
1365d7de03
commit
3f5556675d
@ -26,7 +26,7 @@
|
||||
#
|
||||
# makewhatis -- update the whatis database in the man directories.
|
||||
#
|
||||
# $Id$
|
||||
# $Id: makewhatis.perl,v 1.13 1997/02/22 15:47:03 peter Exp $
|
||||
|
||||
|
||||
sub usage {
|
||||
@ -343,6 +343,7 @@ sub manual {
|
||||
while(<F>) {
|
||||
last if /^\.SH[ \t]/;
|
||||
chop;
|
||||
s/^\.IX\s.*//; # delete perlpod garbage
|
||||
s/^\.[A-Z]+[ ]+[0-9]+$//; # delete commands
|
||||
s/^\.[A-Za-z]+[ \t]*//; # delete commands
|
||||
s/^\.\\".*$//; #" delete comments
|
||||
|
Loading…
Reference in New Issue
Block a user