From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 27 Apr 2017 13:33:26 +0000 (+0200)
Subject: browser: agent versions from appropriate index
X-Git-Tag: v1.10~52
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/cf587c2b629d47729fca9fbcdd4e3d10327699ca

browser: agent versions from appropriate index
---

diff --git a/browser.plp b/browser.plp
index de245b8..a53f045 100644
--- a/browser.plp
+++ b/browser.plp
@@ -80,10 +80,11 @@ my %CSTATUS = (
 	other => 'l0', # non-w3
 );
 my %versions;
-if (my ($somerow) = values %{ $caniuse->{data} }) {
-	while (my ($browser, $row) = each %{ $somerow->{stats} }) {
-		$versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ];
-	}
+while (my ($browser, $row) = each %{ $caniuse->{agents} }) {
+	$versions{$browser} = [
+		sort { paddedver($a) cmp paddedver($b) } grep { defined }
+		@{ $row->{versions} }
+	];
 }
 
 print <<'';