[win32] applied a version of this with tabs intact

	Message-Id: <wklnv7pdf5.fsf@turangalila.harmonixmusic.com>
	Subject: Pod::Html bug and fix: missing </UL> in index

p4raw-id: //depot/win32/perl@535

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index eb08e0a..8ff3e89 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -770,13 +770,15 @@ sub scan_headings {
            chomp($title);
            $$sections{htmlify(0,$title)} = 1;
 
-           if ($which_head > $listdepth) {
-               $index .= "\n" . ("\t" x $listdepth) . "<UL>\n";
-           } elsif ($which_head < $listdepth) {
-               $listdepth--;
-               $index .= "\n" . ("\t" x $listdepth) . "</UL>\n";
+           while ($which_head != $listdepth) {
+               if ($which_head > $listdepth) {
+                   $index .= "\n" . ("\t" x $listdepth) . "<UL>\n";
+                   $listdepth++;
+               } elsif ($which_head < $listdepth) {
+                   $listdepth--;
+                   $index .= "\n" . ("\t" x $listdepth) . "</UL>\n";
+               }
            }
-           $listdepth = $which_head;
 
            $index .= "\n" . ("\t" x $listdepth) . "<LI>" .
                      "<A HREF=\"#" . htmlify(0,$title) . "\">" .