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 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]}) {