From 1b7b05b1ad16464fb2a52931863e07e631d556e5 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Sep 2024 14:50:34 +0200
Subject: [PATCH] common: debug option ?f to ignore json caches

---
 common.inc.plp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.30.2