This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
933fea7
)
allow 'text' in L<text|A::B/"C"> (from Martin Lichtin
author
Gurusamy Sarathy
<gsar@cpan.org>
Fri, 10 Sep 1999 17:55:42 +0000
(17:55 +0000)
committer
Gurusamy 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
patch
|
blob
|
blame
|
history
diff --git
a/lib/Pod/Html.pm
b/lib/Pod/Html.pm
index
5238a1a
..
e9c640c
100644
(file)
--- 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: