browser: renamed agent keys

[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$//,
-               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;