my ($filename) = @_;
my @data = eval {
open my $cache, '<:raw', "data/$filename.json"
- or return do "$filename.inc.pl"; # silent fallback to original code
+ or return do "./$filename.inc.pl"; # silent fallback to original code
require JSON;
local $/; # slurp
return JSON::decode_json(readline $cache);