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