This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
allow 'text' in L<text|A::B/"C"> (from Martin Lichtin
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 10 Sep 1999 17:55:42 +0000 (17:55 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 10 Sep 1999 17:55:42 +0000 (17:55 +0000)
<lichtin@bivio.com>)

p4raw-id: //depot/perl@4122

lib/Pod/Html.pm

index 5238a1a..e9c640c 100644 (file)
@@ -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: