2
0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-08-23 19:50:21 +00:00

Merge pull request #6800 from gurevichmark/restapi_rhels8

Remove depricated Perl usage of keys on scalar
This commit is contained in:
besawn
2020-08-18 14:15:31 -04:00
committed by GitHub

View File

@@ -2879,7 +2879,7 @@ sub tablerowhdl {
# Check if there is any real data in response
# One key ('xcatdsource' => '<node>') is always returned.
# If no other keys in response - no matches on key or attribute were returned from xcatd
if (keys @$responses[0] <= 1) {
if (keys (%{@$responses[0]}) <= 1) {
@$responses[0]->{error} = "No table rows matched specified keys or attributes";
}
return $responses;