An empty request (single dot on the line) is treated as an

empty line by troff(1) and is ignored.  Teach makewhatis(1)
about this.  This makes the following difference:

-groff_man(7), . groff_man(7) - groff `man' macros to support generation of man pages
+groff_man(7)             - groff `man' macros to support generation of man pages
-groff_mdoc(7), -(7)      - . groff_mdoc reference for groff's mdoc implementation
+groff_mdoc(7), -(7)      - groff_mdoc reference for groff's mdoc implementation
-troff(1), . . troff(1)   - format documents
+troff(1)                 - format documents

Noticed by:	yar

1 files changed, 2 insertions, 2 deletions

diff --git a/gnu/usr.bin/man/makewhatis/makewhatis.perl b/gnu/usr.bin/man/makewhatis/makewhatis.perl
index 599220e127fc..11b0249feb80 100644
--- a/gnu/usr.bin/man/makewhatis/makewhatis.perl
+++ b/gnu/usr.bin/man/makewhatis/makewhatis.perl
@@ -344,7 +344,7 @@ sub manual {
 		chop;
 		s/^\.IX\s.*//;            # delete perlpod garbage
 		s/^\.[A-Z]+[ ]+[0-9]+$//; # delete commands
-		s/^\.[A-Za-z]+[ \t]*//;	  # delete commands
+		s/^\.[A-Za-z]*[ \t]*//;	  # delete commands
 		s/^\.\\".*$//;            #" delete comments
 		s/^[ \t]+//;
 		if ($_) {
@@ -375,7 +375,7 @@ sub manual {
 			$list .= @_[1];
 			$list .= "(@_[2])" if @_[2];
 		    } else {
-			s/^\.[A-Z][a-z][ \t]*//;
+			s/^\.([A-Z][a-z])?[ \t]*//;
 			s/[ \t]+$//;
 			$list .= $_;
 		    }