git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
font: script to generate coverage data from ttf files
[sheet.git]
/
tools
/
convert-caniuse.pl
diff --git
a/tools/convert-caniuse.pl
b/tools/convert-caniuse.pl
index 5f619b11178a7e464a6eb263616a9df5beed9a62..b00a869b2a94094fa06138016b46f5b8c4fad819 100755
(executable)
--- a/
tools/convert-caniuse.pl
+++ b/
tools/convert-caniuse.pl
@@
-28,10
+28,12
@@
if (@ARGV) {
my $data = decode_json($res->decoded_content) or die "Parse error: $!";
my $updated = eval {
s/ GMT$//,
my $data = decode_json($res->decoded_content) or die "Parse error: $!";
my $updated = eval {
s/ GMT$//,
- return Time::Piece->strptime($_)->ymd for $res->header('Last-Modified')
- } || time;
+ return Time::Piece->strptime($_) for $res->header('Last-Modified')
+ };
+ $data->{-date} = $_->datetime for $updated || ();
- open my $save, '>', (my $download = "browser-support-$updated.inc.pl");
+ my $suffix = $updated && $updated->ymd || time;
+ open my $save, '>', (my $download = "browser-support-$suffix.inc.pl");
print {$save} pp($data);
close $save;
print {$save} pp($data);
close $save;