From: Abigail <abigail@abigail.be>
Date: Sat, 11 Jul 1998 04:09:57 +0000 (-0400)
Subject: pod/pod2man.PL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7427f721d18faacc3417ba22d9eb45bf2efdd2e9;p=p5sagit%2Fp5-mst-13.2.git

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
--- a/pod/pod2man.PL
+++ b/pod/pod2man.PL
@@ -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;