X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0bf15a019e9201754f43b7a874b8cc02c96d2130..7affe2df7fee946f49e1561a5f58240bd0309b4f:/tools/convert-caniuse.pl

diff --git a/tools/convert-caniuse.pl b/tools/convert-caniuse.pl
index 5f619b1..b00a869 100755
--- 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;