From 41beface2d4a28895b1983547dcbcc69b38a7743 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 16 Dec 2010 00:34:25 +0100
Subject: [PATCH] browser: derive support from surrounding versions

Assume a version with undefined support value will be the same as either its
predecessor or unsupported successor.
---
 browser.plp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/browser.plp b/browser.plp
index 863f806..7eaa669 100644
--- a/browser.plp
+++ b/browser.plp
@@ -271,8 +271,10 @@ sub saybrowsercols {
 		my $compare = (
 			!defined $ver ? undef :      # last column if nameless
 			ref $data ne 'HASH' ? 'u' :  # unsupported if no support hash
-			$data->{$ver}                # known
-			|| 'u'                       # unsure unless oldest is unsupported
+			$data->{$ver} // $prev       # known or inherit from predecessor
+			// (grep { defined } @{$data}{ @{ $versions{$browser} } })[0]
+			   ~~ 'n' && 'n'             # first known version is unsupported
+			|| 'u'                       # unsure
 		);
 		unless (!defined $prev or $prev ~~ $compare) {
 			my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
-- 
2.30.0