From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 13 Dec 2010 20:26:28 +0000 (+0100)
Subject: browser: record modified date at caniuse retrieval
X-Git-Tag: v1.4~11
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/8789199b5b5d78b58dad792ee293f14b39f46261?hp=0bf15a019e9201754f43b7a874b8cc02c96d2130

browser: record modified date at caniuse retrieval
---

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;