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:
55dbdef
)
common: ignore unrelated errors after loading data
author
Mischa POSLAWSKY
<perl@shiar.org>
Thu, 28 Dec 2023 02:31:15 +0000
(
03:31
+0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Thu, 28 Dec 2023 07:19:58 +0000
(08:19 +0100)
Failure will always be indicated in the eval error, regardless of remnant $!
from another open.
common.inc.plp
patch
|
blob
|
history
diff --git
a/common.inc.plp
b/common.inc.plp
index 9d341284e1ba20869e2634d695c23ace8f52c6c7..0754d85acf7c8f8bfafd56f245691e0085678ed0 100644
(file)
--- a/
common.inc.plp
+++ b/
common.inc.plp
@@
-106,7
+106,7
@@
sub Data {
local $/; # slurp
return JSON::decode_json(readline $cache);
};
- if ($
! or $
@ or !@data or !$data[0]) {
+ if ($@ or !@data or !$data[0]) {
die ['Table data not found', $@ || $!];
}
if (@data == 1 and ref $data[0] eq 'HASH' and not %{$data[0]}) {