From cf587c2b629d47729fca9fbcdd4e3d10327699ca Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 27 Apr 2017 15:33:26 +0200
Subject: [PATCH] browser: agent versions from appropriate index

---
 browser.plp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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 <<'';
-- 
2.30.0