From 6b44545759289f85e96c8c6b41501484374afa61 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 7 Dec 2010 04:44:22 +0100
Subject: [PATCH 1/1] browser: minor html validation fixes

- double browser id (useless div)
- prepend tfoot
---
 browser.plp | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/browser.plp b/browser.plp
index 4245914..13e6b5e 100644
--- a/browser.plp
+++ b/browser.plp
@@ -39,7 +39,6 @@ given ($get{usage} // 'wm') {
 :>.
 </p>
 
-<div id="browser">
 <:
 my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
 $_->{verrelease} = {
@@ -131,7 +130,8 @@ for my $browser (@browsers) {
 	) for @{ $versions{$browser} };
 }
 print '<td>' x 1;
-print "</thead>\n";
+say '</thead>';
+say '<tfoot>', $header, '</tfoot>';
 
 sub featurescore {
 	# relative amount of support for given feature
@@ -255,9 +255,8 @@ for my $id (sort {
 	sayusagecol($id);
 	say '</tr>';
 }
-print '</tbody>';
-print '<tfoot>', $header;
-print '</table>';
+say '</tbody>';
+say '</table>';
 
 sub formathtml {
 	my $ref = defined wantarray ? [@_] : \@_;
@@ -284,8 +283,7 @@ sub showversions {
 	return join('‒', @span);
 }
 
-:></div>
-
+:>
 <hr>
 
 <div class="legend">
-- 
2.30.0