git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f03ced3
)
browser: select agent versions from caniuse version_list
author
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 18 May 2018 22:00:11 +0000
(
00:00
+0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 19 May 2018 02:48:19 +0000
(
04:48
+0200)
tools/mkcaniuse
patch
|
blob
|
history
diff --git
a/tools/mkcaniuse
b/tools/mkcaniuse
index c1817585d8a6d04cc7cd21375d1086197ed5033b..074fea70765bae1796c24ac8b1c7e42099c32d24 100755
(executable)
--- a/
tools/mkcaniuse
+++ b/
tools/mkcaniuse
@@
-7,7
+7,7
@@
use JSON::PP;
use File::stat;
use Time::Piece;
use File::stat;
use Time::Piece;
-our $VERSION = '1.0
2
';
+our $VERSION = '1.0
3
';
my %BROWSERJOIN = (
edge => 'ie',
my %BROWSERJOIN = (
edge => 'ie',
@@
-30,13
+30,12
@@
for (values %{ $data->{data} }) {
}
for (values %{ $data->{agents} }) {
delete $_->{usage_global};
}
for (values %{ $data->{agents} }) {
delete $_->{usage_global};
- shift @{ $_->{versions} } while !defined $_->{versions}->[0];
}
while (my ($browser, $target) = each %BROWSERJOIN) {
my $agent1 = delete $data->{agents}->{$browser} or next;
my $agent2 = $data->{agents}->{$target} or next;
}
while (my ($browser, $target) = each %BROWSERJOIN) {
my $agent1 = delete $data->{agents}->{$browser} or next;
my $agent2 = $data->{agents}->{$target} or next;
-
splice @{ $agent2->{versions} }, -3, 3, @{ $agent1->{versions
} };
+
push @{ $agent2->{version_list} }, @{ $agent1->{version_list
} };
$agent2->{browser} = sprintf '%s (former %s)',
$agent1->{browser}, $agent2->{browser};
$agent2->{browser} = sprintf '%s (former %s)',
$agent1->{browser}, $agent2->{browser};
@@
-46,6
+45,10
@@
while (my ($browser, $target) = each %BROWSERJOIN) {
}
}
}
}
+for (values %{ $data->{agents} }) {
+ $_->{versions} = [ map { $_->{version} } @{ $_->{version_list} } ];
+}
+
say "# automatically generated by $0";
print '+', pp($data);
say "# automatically generated by $0";
print '+', pp($data);