git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
853d244
)
common: debug option ?f to ignore json caches
author
Mischa POSLAWSKY
<perl@shiar.org>
Thu, 5 Sep 2024 12:50:34 +0000
(14:50 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 7 Sep 2024 23:50:14 +0000
(
01:50
+0200)
common.inc.plp
patch
|
blob
|
history
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 {
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
or return do "./$filename.inc.pl"; # silent fallback to original code
require JSON;
local $/; # slurp