From 8dd33b6c68962e174ed3716519957f73a3ca2191 Mon Sep 17 00:00:00 2001
From: "Simon L. B. Nielsen" <simon@FreeBSD.org>
Date: Tue, 14 Dec 2004 13:07:58 +0000
Subject: [PATCH] - Update usage to reflect the current reality. - Fix a bug
 where manual pages which had a "_" in their name did not   get proper
 architecture setting.

MFC after:	1 week
---
 release/doc/share/misc/man2hwnotes.pl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/release/doc/share/misc/man2hwnotes.pl b/release/doc/share/misc/man2hwnotes.pl
index e740f74b7bd..8670693a00c 100644
--- a/release/doc/share/misc/man2hwnotes.pl
+++ b/release/doc/share/misc/man2hwnotes.pl
@@ -40,7 +40,8 @@
 # arguments to the .It command, only the argument will be printed.
 
 # Usage:
-# mdoc2sgml [-l] [-d 0-6] [-a <archlist file>] [-o <outputfile>] <manualpage> [<manualpage> ...]
+# man2hwnotes.pl [-l] [-d 0-6] [-a <archlist file>] [-o <outputfile>]
+#                <manualpage> [<manualpage> ...]
 
 use strict;
 use Getopt::Std;
@@ -172,11 +173,12 @@ sub parse {
 		dlog(3, "Setting Nm to $1");
 		$mdocvars{Nm} = $1;
 		# "_" cannot be used for an entity name.
-		$mdocvars{Nm} =~ s,_,.,g;
+		$mdocvars{EntNm} = $1;
+		$mdocvars{EntNm} =~ s,_,.,g;
 
 	    } elsif (/^Nm$/) {
 		if (defined($mdocvars{Nm}) && $mdocvars{Nm} ne "") {
-		    parabuf_addline(\%mdocvars, "&man.".$mdocvars{Nm}.".$cur_mansection;");
+		    parabuf_addline(\%mdocvars, "&man.".$mdocvars{EntNm}.".$cur_mansection;");
 		} else {
 		    dlog(2, "Warning: Bad Nm call in $manpage");
 		}
@@ -194,7 +196,7 @@ sub parse {
 		    add_sgmltag(\%mdocvars, "<!ENTITY hwlist.".$mdocvars{cur_manname}." '");
 		    if ($only_list_out) {
 			add_sgmltag("<para>&hwlist.preamble.pre; " .
-				    "&man.".$mdocvars{Nm}.".$cur_mansection; " .
+				    "&man.".$mdocvars{EntNm}.".$cur_mansection; " .
 				    "&hwlist.preamble.post;</para>");
 		    }
 		} elsif ($mdocvars{isin_hwlist}) {
-- 
2.45.2