From: Dan Schmidt <dfan@harmonixmusic.com>
Date: Thu, 19 Feb 1998 15:06:38 +0000 (-0500)
Subject: [win32] applied a version of this with tabs intact
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=102c538a6d6c13704cdbe63c35a7fae8ce57bf15;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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) . "\">" .