From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Sep 2024 12:50:34 +0000 (+0200)
Subject: common: debug option ?f to ignore json caches
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/1b7b05b1ad16464fb2a52931863e07e631d556e5

common: debug option ?f to ignore json caches
---

diff --git a/common.inc.plp b/common.inc.plp
index fec7b57..1640884 100644
--- 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