This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pod/pod2man.PL
authorAbigail <abigail@abigail.be>
Sat, 11 Jul 1998 04:09:57 +0000 (00:09 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 11 Jul 1998 19:05:00 +0000 (19:05 +0000)
Message-ID: <19980711080957.2106.qmail@betelgeuse.wayne.fnx.com>

p4raw-id: //depot/perl@1437

pod/pod2man.PL

index 06e46b4..26c9764 100644 (file)
@@ -1123,7 +1123,10 @@ sub internal_lrefs {
     }
 
     $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;