[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 (file)
--- 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{$_};