From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 10 Sep 1999 17:55:42 +0000 (+0000)
Subject: allow 'text' in L<text|A::B/"C"> (from Martin Lichtin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8f4c9bddda8c3c457a7859b805e0044be0e74993;p=p5sagit%2Fp5-mst-13.2.git

allow 'text' in L<text|A::B/"C"> (from Martin Lichtin
<lichtin@bivio.com>)

p4raw-id: //depot/perl@4122
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 5238a1a..e9c640c 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1506,7 +1506,8 @@ sub process_L {
 	$link = "#" . htmlify(0,$section);
 	$linktext = $section unless defined($linktext);
     } elsif ( $page =~ /::/ ) {
-	$linktext  = ($section ? "$section" : "$page");
+	$linktext  = ($section ? "$section" : "$page")
+	    unless defined($linktext);
 	$page =~ s,::,/,g;
 	# Search page cache for an entry keyed under the html page name,
 	# then look to see what directory that page might be in.  NOTE: