From: Jari Aalto Date: Sun, 4 Mar 2007 13:33:20 +0000 (-0800) Subject: [perl #41698] [PATCH] v5.8.8 pod2html -- Add
..
around the outputted INDEX... X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25ff0154ccf606eb5512a8cde622caf50e20fba3;p=p5sagit%2Fp5-mst-13.2.git [perl #41698] [PATCH] v5.8.8 pod2html -- Add
..
around the outputted INDEX section From: Jari Aalto (via RT) Message-ID: plus test adjustments p4raw-id: //depot/perl@30583 --- diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index f524eff..03ac8f0 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -498,13 +498,25 @@ END_OF_HEAD # still generate an index, but surround it with an html comment. # that way some other program can extract it if desired. $index =~ s/--+/-/g; - print HTML "

\n"; - print HTML "\n"; - print HTML "\n" unless $Doindex; - print HTML "\n\n"; - print HTML "
\n" if $Doindex and $index; + + my $hr = ($Doindex and $index) ? qq(
) : ""; + + unless ($Doindex) + { + $index = qq(\n); + } + + print HTML << "END_OF_INDEX"; + + +
+

+$index +$hr +
+ + +END_OF_INDEX # now convert this file my $after_item; # set to true after an =item diff --git a/lib/Pod/t/htmlescp.t b/lib/Pod/t/htmlescp.t index c31d5c2..16503c4 100644 --- a/lib/Pod/t/htmlescp.t +++ b/lib/Pod/t/htmlescp.t @@ -24,17 +24,21 @@ __DATA__ -

+ +
+

+ +
+
-

NAME

diff --git a/lib/Pod/t/htmllink.t b/lib/Pod/t/htmllink.t index f68edf3..7d03e07 100644 --- a/lib/Pod/t/htmllink.t +++ b/lib/Pod/t/htmllink.t @@ -24,8 +24,10 @@ __DATA__ -

+ +
+

    @@ -40,9 +42,11 @@ __DATA__
+ +
+
-

NAME

diff --git a/lib/Pod/t/htmlview.t b/lib/Pod/t/htmlview.t index 3295641..9b9bb90 100644 --- a/lib/Pod/t/htmlview.t +++ b/lib/Pod/t/htmlview.t @@ -24,8 +24,10 @@ __DATA__ -

+ +
+

+ +
+
-

NAME