common: debug option ?f to ignore json caches

diff --git a/common.inc.plp b/common.inc.plp
index fec7b570a263cd7875aff05418fb0c71d25e2948..16408842581ebaccea3a1c75b51f712fadec2e61 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -97,7 +97,7 @@ sub checkmodified {
 sub Data {
        my ($filename) = @_;
        my @data = eval {
-               open my $cache, '<:raw', "data/$filename.json"
+               !exists $get{f} and open my $cache, '<:raw', "data/$filename.json"
                        or return do "./$filename.inc.pl"; # silent fallback to original code
                require JSON;
                local $/; # slurp