diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-10 17:55:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-10 17:55:42 +0000 |
| commit | 8f4c9bddda8c3c457a7859b805e0044be0e74993 (patch) | |
| tree | 79a534c6c87d2ba98a2aad754c26da7ff5f4a90a /lib | |
| parent | 933fea7ffa6c794a1a2b8e713eb2b30851598bc8 (diff) | |
| download | perl-8f4c9bddda8c3c457a7859b805e0044be0e74993.tar.gz | |
allow 'text' in L<text|A::B/"C"> (from Martin Lichtin
<lichtin@bivio.com>)
p4raw-id: //depot/perl@4122
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 5238a1a1a7..e9c640cf5d 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: |