From 2ce75f053f97e81228960b6323b6b7bb230799df Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 27 Apr 2017 17:37:56 +0200
Subject: [PATCH 1/1] browser: abbreviate multiple releases in versions row
 titles

Individual version numbers are not really of interest (and may not actually
match usage data), and are much better represented as ranges (especially
with the huge amount of Chrome increments).
---
 browser.plp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/browser.plp b/browser.plp
index a101d74..8ff9886 100644
--- a/browser.plp
+++ b/browser.plp
@@ -243,8 +243,8 @@ for my $browser (@browsers) {
 		printf('<td title="%s"%s>%s',
 			join(' ',
 				sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
-				$future ? 'development' : (),
-				'version ' . join(', ', @{$_}),
+				'version ' . showversions(@{$_}, undef),
+				$future ? '(development)' : (),
 			),
 			$future && ' class="ex"',
 			showversions($lastver),
@@ -419,7 +419,7 @@ sub saybrowsercols {
 				),
 				scalar @span,
 				$title,
-				showversions($span[0]->[0], @span > 1 ? ($span[-1]->[-1]) : ()),
+				showversions($span[0]->[0], @span > 1 ? $span[-1]->[-1] : ()),
 			);
 			undef $prev;
 			@span = ();
@@ -457,13 +457,14 @@ sub paddedver {
 }
 
 sub showversions {
-	my @span = ($_[0], @_>1 ? $_[-1] : ());
-	s/-.*// for $span[0];
+	# title to describe minumum version and optional maximum for multiple cells
+	my @span = (map { split /-/ } grep { defined } @_);
 	for (@span) {
 		s/^\./0./;
 		s/x$/.*/;
-		s/.*-//;
 	}
+	return $span[0] if @_ <= 1;
+	splice @span, 1, -1;
 	return join('‒', @span);
 }
 
-- 
2.30.0