pod/pod2man.PL

	Message-ID: <19980711080957.2106.qmail@betelgeuse.wayne.fnx.com>

p4raw-id: //depot/perl@1437

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index 06e46b4..26c9764 100644 (file)
--- a/pod/pod2man.PL
+++ b/pod/pod2man.PL
@@ -1123,7 +1123,10 @@ sub internal_lrefs {
     }
 
     $retstr .= " entr" . ( @items > 1  ? "ies" : "y" )
     }
 
     $retstr .= " entr" . ( @items > 1  ? "ies" : "y" )

-           .  " elsewhere in this document "; # terminal space to avoid words running together (pattern used strips terminal spaces)
+           .  " elsewhere in this document";
+    # terminal space to avoid words running together (pattern used
+    # strips terminal spaces)
+    $retstr .= " " if length $trailing_and;

     $retstr .=  $trailing_and;
 
     return $retstr;
     $retstr .=  $trailing_and;
 
     return $retstr;