X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/58725794d72361cc70cb082476a32d08e22d21d0..4b71762936d38dfebc9aa8093777e44aad5b41ab:/common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index 39865bd..afec9d1 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -102,7 +102,11 @@ sub checkmodified {
 sub Data {
 	my ($filename) = @_;
 	my @data = eval {
-		do "$filename.inc.pl";
+		open my $cache, '<:raw', "data/$filename.json"
+			or return do "$filename.inc.pl"; # silent fallback to original code
+		require JSON;
+		local $/; # slurp
+		return JSON::decode_json(readline $cache);
 	};
 	if ($! or $@ or !@data or !$data[0]) {
 		die ['Table data not found', $@ || $!];