- (djm) Fix .Nm in mdoc2man.pl from pspencer@fields.utoronto.ca

diff --git a/ChangeLog b/ChangeLog
index 4d30cbf34e28196b4fbc928f1baf2ce4ca19c893..cae04c67484d8d6df22b1e67549b2e6237ea0901 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 20020417
  - (djm) Tell users to configure /dev/random support into OpenSSL in INSTALL
+ - (djm) Fix .Nm in mdoc2man.pl from pspencer@fields.utoronto.ca
 
 20020415
  - (djm) Unbreak "make install". Fix from Darren Tucker <dtucker@zip.com.au>

diff --git a/mdoc2man.pl b/mdoc2man.pl
index fddb2e09d06df313cb55a4ea71ff1e5605dc602a..928fc5d7a33488c8a0abc7bf5088ebd3c9878086 100644 (file)
--- a/mdoc2man.pl
+++ b/mdoc2man.pl
@@ -318,11 +318,13 @@ sub ParseMacro # ($line)
 
                if (/^Nm$/)
                {
-                       $name = shift @words
+                       my $n = $name;
+                       $n = shift @words
                                if (@words > 0);
+                       $name = $n unless $name;
                        $retval .= ".br\n"
                                if ($synopsis);
-                       $retval .= "\\fB$name\\fP";
+                       $retval .= "\\fB$n\\fP";
                        $nospace = 1
                                if (! $nospace && $words[0] =~ m/^[\.,]/);
                        next;