From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Wed, 23 Aug 2000 10:33:23 +0000 (-0400)
Subject: [ID 20000823.004] [PATCH 5.6.0+] Pod::Html is too self-contained
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3f9d0fb97769166df4157de943b8e991df9386a;p=p5sagit%2Fp5-mst-13.2.git

[ID 20000823.004] [PATCH 5.6.0+] Pod::Html is too self-contained
Message-Id: <200008231433.KAA28122@leggy.zk3.dec.com>

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

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 346495f..f70a42b 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -893,6 +893,10 @@ sub scan_dir {
 	    $pages{$_}  = "" unless defined $pages{$_};
 	    $pages{$_} .= "$dir/$_.pod:";
 	    push(@pods, "$dir/$_.pod");
+	} elsif (/\.html\z/) { 	    	    	    	    # .html
+	    s/\.html\z//;
+	    $pages{$_}  = "" unless defined $pages{$_};
+	    $pages{$_} .= "$dir/$_.pod:";
 	} elsif (/\.pm\z/) { 	    	    	    	    # .pm
 	    s/\.pm\z//;
 	    $pages{$_}  = "" unless defined $pages{$_};