Failure will always be indicated in the eval error, regardless of remnant $!
from another open.
local $/; # slurp
return JSON::decode_json(readline $cache);
};
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]}) {
die ['Table data not found', $@ || $!];
}
if (@data == 1 and ref $data[0] eq 'HASH' and not %{$data[0]}) {