From 3f5556675d92727516a6ec4e758690c40b78be1b Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Sat, 1 Mar 1997 15:20:50 +0000
Subject: Bugfix for man pages created by perlpod(1).
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Submitted by: Slaven Reziæ (Tomiæ) <eserte@cs.tu-berlin.de>
---
 gnu/usr.bin/man/makewhatis/makewhatis.perl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'gnu/usr.bin')

diff --git a/gnu/usr.bin/man/makewhatis/makewhatis.perl b/gnu/usr.bin/man/makewhatis/makewhatis.perl
index 6b28e24109b71..a3e448988fdd4 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
-- 
cgit v1.3