From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 15 Dec 2010 23:44:09 +0000 (+0100)
Subject: browser: recognise unsupported (array) rows
X-Git-Tag: v1.4^0
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/0b7c0c10cebb4a8be61e88a3b1d62bdd638d77c0

browser: recognise unsupported (array) rows

According to Alexis, missing version data indicates "features that people
may have heard of but currently have no implementation at all" and should be
assumed unsupported in all released versions.
---

diff --git a/browser.plp b/browser.plp
index 7eaa669..2776a5b 100644
--- a/browser.plp
+++ b/browser.plp
@@ -265,12 +265,19 @@ sub saystatuscol {
 sub saybrowsercols {
 	my ($id, $browser) = @_;
 	my $data = $caniuse->{data}->{$id}->{stats}->{$browser};
+	if (ref $data eq 'ARRAY') {
+		# special case for unsupported
+		my $release = $caniuse->{agents}->{$browser}->{verrelease};
+		$data = {
+			map { $_ => defined $release->{$_} ? 'u' : 'n' } keys %$release
+		};
+	}
 
 	my ($prev, @span);
 	for my $ver (@{ $versions{$browser} }, undef) {
 		my $compare = (
 			!defined $ver ? undef :      # last column if nameless
-			ref $data ne 'HASH' ? 'u' :  # unsupported if no support hash
+			ref $data ne 'HASH' ? '' :   # unclassified if no support hash
 			$data->{$ver} // $prev       # known or inherit from predecessor
 			// (grep { defined } @{$data}{ @{ $versions{$browser} } })[0]
 			   ~~ 'n' && 'n'             # first known version is unsupported