aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorWolfram Schneider <wosch@FreeBSD.org>1997-03-01 15:20:50 +0000
committerWolfram Schneider <wosch@FreeBSD.org>1997-03-01 15:20:50 +0000
commit3f5556675d92727516a6ec4e758690c40b78be1b (patch)
tree7fabe6a0a829491fb9c7cb7635a37c077d58ac80
parent1365d7de03a5349218715981298c56b8c01c8e7c (diff)
downloadsrc-3f5556675d92727516a6ec4e758690c40b78be1b.tar.gz
src-3f5556675d92727516a6ec4e758690c40b78be1b.zip
Bugfix for man pages created by perlpod(1).
Submitted by: Slaven ReziƦ (TomiƦ) <eserte@cs.tu-berlin.de>
Notes
Notes: svn path=/head/; revision=23242
-rw-r--r--gnu/usr.bin/man/makewhatis/makewhatis.perl3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/usr.bin/man/makewhatis/makewhatis.perl b/gnu/usr.bin/man/makewhatis/makewhatis.perl
index 6b28e24109b7..a3e448988fdd 100644
--- a/gnu/usr.bin/man/makewhatis/makewhatis.perl
+++ b/gnu/usr.bin/man/makewhatis/makewhatis.perl
@@ -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