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

1 files changed, 4 insertions, 2 deletions

diff --git a/mdoc2man.pl b/mdoc2man.pl
index fddb2e09d..928fc5d7a 100644
--- 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;