aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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