From 658d36cc0380a3dea388d98111a3ad6ef0ba5379 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 27 Apr 2017 17:42:30 +0200
Subject: [PATCH 1/1] browser: prefer last stable release in versions row

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

diff --git a/browser.plp b/browser.plp
index 8ff9886..b06d8e9 100644
--- a/browser.plp
+++ b/browser.plp
@@ -237,16 +237,16 @@ print '<thead>', $header;
 print "\n<tr>";
 for my $browser (@browsers) {
 	for (@{ $versions{$browser} }) {
-		my $lastver = $_->[-1];
-		my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$lastver};
-		my $future = defined $release;
+		my $lastver = first {
+			!defined $caniuse->{agents}->{$browser}->{verrelease}->{$_} # stable
+		} reverse @{$_};
 		printf('<td title="%s"%s>%s',
 			join(' ',
 				sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
 				'version ' . showversions(@{$_}, undef),
-				$future ? '(development)' : (),
+				$_->[-1] eq $lastver ? () : '(development)',
 			),
-			$future && ' class="ex"',
+			!defined $lastver && ' class="ex"',
 			showversions($lastver),
 		);
 	}
-- 
2.30.0