From: SADAHIRO Tomoyuki <BQW10602@nifty.com>
Date: Mon, 9 Jan 2006 12:53:15 +0000 (+0900)
Subject: L<PerlIO> and Pod::Html
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=61743a657e259001276c08472bbb1a6b6b9febb4;p=p5sagit%2Fp5-mst-13.2.git

L<PerlIO> and Pod::Html
Message-Id: <20060109125220.3BB0.BQW10602@nifty.com>

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

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index aba3c9f..4d162ce 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 = "";