From 7e38bdbccaff9d8e75a33e88e81dc783da5d18e4 Mon Sep 17 00:00:00 2001
From: Anthony Parsons <flussence+git@gmail.com>
Date: Thu, 11 Aug 2011 02:56:20 +0100
Subject: [PATCH] It's "min", not "max". Duh.

---
 lib/Pod/To/HTML.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Pod/To/HTML.pm b/lib/Pod/To/HTML.pm
index 80907fd..45a1c17 100644
--- a/lib/Pod/To/HTML.pm
+++ b/lib/Pod/To/HTML.pm
@@ -63,7 +63,7 @@ sub buildindexes {
 }
 
 sub heading2html($pod) {
-    my $lvl = max($pod.level, 6);
+    my $lvl = min($pod.level, 6);
     my $txt = escape($pod.content[0].content.Str, 'html');
     @indexes.push: Pair.new(key => $lvl, value => $txt);
     return "<h$lvl><a class='u' href='#___top' title='click to go to top of document' name='$txt'>{$txt}</a></h$lvl>\n";