diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2006-01-09 21:53:15 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-03 13:35:44 +0000 |
| commit | 61743a657e259001276c08472bbb1a6b6b9febb4 (patch) | |
| tree | 3380e0149baed3bbf7ed8fad58dc608e8fde3b93 /lib | |
| parent | 601f18338612507d7579747105124d8ed063211e (diff) | |
| download | perl-61743a657e259001276c08472bbb1a6b6b9febb4.tar.gz | |
L<PerlIO> and Pod::Html
Message-Id: <20060109125220.3BB0.BQW10602@nifty.com>
p4raw-id: //depot/perl@27061
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index aba3c9f608..4d162ce815 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -3,7 +3,7 @@ use strict; require Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = 1.0504; +$VERSION = 1.06; @ISA = qw(Exporter); @EXPORT = qw(pod2html htmlify); @EXPORT_OK = qw(anchorify); @@ -1821,10 +1821,9 @@ sub page_sect($$) { $section = "#$section" if $section; ### print STDERR "...section=$section\n"; - # check if there is a .pod with the page name - if ($Pages{$page} =~ /([^:]*)\.pod:/) { - $link = "$Htmlroot/$1.html$section"; - } elsif ($Pages{$page} =~ /([^:]*)\.pm:/) { + # check if there is a .pod with the page name. + # for L<Foo>, Foo.(pod|pm) is preferred to A/Foo.(pod|pm) + if ($Pages{$page} =~ /([^:]*)\.(?:pod|pm):/) { $link = "$Htmlroot/$1.html$section"; } else { $link = ""; |