From 4567809ced8050d78560dfe77fef5edfc58dc1c7 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 28 Apr 2017 02:56:08 +0200
Subject: [PATCH] browser: count unknown agent versions as old

---
 browser.plp             | 4 ++--
 tools/mkusage-wikimedia | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/browser.plp b/browser.plp
index 421d9ef..c890052 100644
--- a/browser.plp
+++ b/browser.plp
@@ -455,9 +455,9 @@ say '</table>';
 
 sub paddedver {
 	# normalised version number comparable as string (cmp)
-	shift =~ /(?:.*-|^)(\d*)(.*)/;
+	$_[0] =~ m/(?:.*-|^)(\d*)(.*)/;
 	# matched (major)(.minor) of last value in range (a-B)
-	return sprintf('%02d', $1 || 99) . $2;
+	return sprintf('%02d', length $1 ? $1 : 99) . $2;
 }
 
 sub showversions {
diff --git a/tools/mkusage-wikimedia b/tools/mkusage-wikimedia
index a5a4e58..6ce3652 100755
--- a/tools/mkusage-wikimedia
+++ b/tools/mkusage-wikimedia
@@ -41,6 +41,7 @@ while (my $row = readline) {
 	$date =~ $recent or next;
 	$name =~ y/ /-/;
 	my $browser = $BROWSERID{$name} or next;
+	$version =~ s/\A-\z/0/;
 	$count{$browser}{$version} += $pct;
 	$count{-total} += $pct;
 	$count{-date}->{$date}++;
-- 
2.30.0