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 930c435fb83b14d5ea39c93f1f8e77e3b58bfdca..06e55e543c7ba0f86ae002b265152f0684cd870e 100644 (file)
--- 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 {