X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/58725794d72361cc70cb082476a32d08e22d21d0..3cea0c12d3af9e81ce4999ecb1334221cb6d38fe:/common.inc.plp?ds=sidebyside

diff --git a/common.inc.plp b/common.inc.plp
index 39865bd..a1eb3e5 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', $@ || $!];