X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f42145cdf77de3602378c70f18545703783122c5..347e058a4a7de63c7f0b92091daa51387689771d:/browser.plp
diff --git a/browser.plp b/browser.plp
index d3b4596..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/');
@@ -243,7 +240,7 @@ for my $browser (@browsers) {
sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{ @{$span} }) * $usagepct),
'version ' . showversions(@{$span}, undef),
(map {
- $_ ? () : '(development)'
+ $_ ? sprintf('(released %d)', $_/3600/24/365.25 + 1970) : '(development)'
} $caniuse->{agents}->{$browser}->{version_list}->{$lastver}->{release_date}),
),
!defined $lastver && ' class="ex"',
@@ -311,6 +308,7 @@ sub formatnotes {
s/(?<= [^.\n]) $/./gmx; # consistently end each line by a period
Entity($_);
s{ ` ([^`]*) ` }{$1
}gx;
+ s{ \(\K (?: \Qhttps://caniuse.com\E )? (?: /? \#feat= | / ) }{#}gx;
s{ \[ ([^]]*) \] \( ([^)]*) \) }{$1}gx;
}
return @html;
@@ -469,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 {