From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 28 Dec 2023 02:31:15 +0000 (+0100)
Subject: common: ignore unrelated errors after loading data
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/5299da1556ec4ccf5c93fea0d1c4dcef5f6bb180

common: ignore unrelated errors after loading data

Failure will always be indicated in the eval error, regardless of remnant $!
from another open.
---

diff --git a/common.inc.plp b/common.inc.plp
index 9d34128..0754d85 100644
--- 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]}) {