From 60fa1b83907b83cea5b65edfcb47e4e48ed73874 Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Tue, 14 May 1996 23:07:05 +0000 Subject: Makewhatis appended the filename to list of keywords if no keyword matched the filename. Now put the list after the filename. E.g. filename: vt220keys.1 Keyword: vt220 was: vt220(1), vt220keys(1) - define SHIFTED [...] now: vt220keys(1), vt220(1) - define SHIFTED [...] --- gnu/usr.bin/man/makewhatis/makewhatis.perl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'gnu') diff --git a/gnu/usr.bin/man/makewhatis/makewhatis.perl b/gnu/usr.bin/man/makewhatis/makewhatis.perl index ca3581683c07..0d21fd609a99 100644 --- a/gnu/usr.bin/man/makewhatis/makewhatis.perl +++ b/gnu/usr.bin/man/makewhatis/makewhatis.perl @@ -35,7 +35,7 @@ # # E-Mail: Wolfram Schneider # -# $Id: makewhatis.perl,v 1.7 1995/09/10 13:05:52 joerg Exp $ +# $Id: makewhatis.perl,v 1.8 1996/05/12 21:02:04 wosch Exp $ # sub usage { @@ -267,7 +267,7 @@ sub out { } # The filename of manual page is not a keyword. -# This may be dangerous, because you don't find the manpage +# This is bad, because you don't find the manpage # whith: $ man
# # Add filename if a) filename is not a keyword and b) no keyword(s) @@ -280,17 +280,17 @@ sub manpagename { return if $name eq $_; } - local($f) = $file; - $f =~ s%/*[^/]+$%%; + local($f) = $file; $f =~ s%/*[^/]+$%%; # dirname + local($e) = $file; $e =~ s/$ext$//; $e =~ s%.*(\.[^.]+)$%$1%; # .1 foreach (split(/,\s+/, $man)) { s/\(.+//; # a keyword exist as file - return if -e "$f/$_"; + return if -e "$f/$_$e" || -e "$f/$_$e$ext"; } - $man .= ", $name($extension)"; + $man = "$name($extension), $man"; } # looking for NAME -- cgit v1.3