From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 22 May 2022 20:04:30 +0000 (+0200)
Subject: browser: numeric order of agent versions >99
X-Git-Tag: v1.13~5
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/347e058a4a7de63c7f0b92091daa51387689771d

browser: numeric order of agent versions >99

Pad 3 digits (or preferably not at all) to fix recent releases all going up
to unimaginably large numbers.
---

diff --git a/browser.plp b/browser.plp
index 930c435..06e55e5 100644
--- a/browser.plp
+++ b/browser.plp
@@ -73,10 +73,7 @@ my %CSTATUS = (
 );
 my %versions;
 while (my ($browser, $row) = each %{ $caniuse->{agents} }) {
-	$versions{$browser} = [
-		sort { paddedver($a) cmp paddedver($b) } grep { defined }
-		@{ $row->{versions} }
-	];
+	$versions{$browser} = [@{ $row->{versions} }];
 }
 
 my $ref = showlink('Can I use', 'https://caniuse.com/');
@@ -470,7 +467,7 @@ sub paddedver {
 	# normalised version number comparable as string (cmp)
 	$_[0] =~ m/(?:.*-|^)(\d*)(.*)/;
 	# matched (major)(.minor) of last value in range (a-B)
-	return sprintf('%02d', length $1 ? $1 : 99) . $2;
+	return sprintf('%03d', length $1 ? $1 : 999) . $2;
 }
 
 sub showversions {