From 09eac7d4b2f3a44d79b6a2f42e4d35f62aaed510 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Fri, 4 Jul 1997 22:32:59 +0000
Subject: [PATCH] Better section guessing for manual pages without suffix. The
 plan9 manual pages dont have a suffix.

---
 gnu/usr.bin/man/makewhatis/makewhatis.perl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/usr.bin/man/makewhatis/makewhatis.perl b/gnu/usr.bin/man/makewhatis/makewhatis.perl
index 453787e3e0b..b3ceeaa20ca 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: makewhatis.perl,v 1.11 1996/08/27 20:04:09 wosch Exp $
+# $Id: makewhatis.perl,v 1.16 1997/03/14 21:58:43 wosch Exp $
 
 
 sub usage {
@@ -172,7 +172,7 @@ sub parse_dir {
 	delete $man_red{$file};
     }
 
-    if ($dir =~ /man$/) {
+    if ($dir =~ /man/) {
 	warn "\n" if $verbose && $pointflag;
 	warn "open manpath directory ``$dir''\n" if $verbose;
 	$pointflag = 0;
@@ -218,10 +218,10 @@ sub ext {
     $extension =~ s/$ext$//g;	# strip .gz
     $extension =~ s/.*\///g;	# basename
 
-    if ($extension !~ /\./) {	# no dot
+    if ($extension !~ m%[^/]+\.[^.]+$%) {	# no dot
 	$extension = $filename;
 	#$extension =~ s|/[^/]+$||;
-	$extension =~ s/.*(.)/$1/; # last character
+	$extension =~ s%.*man([^/]+)/[^/]+%$1%; # last character
 	warn "\n" if $verbose && $pointflag;
 	warn "$filename has no extension, try section ``$extension''\n"
 	    if $verbose;