xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-22 03:32:04 +00:00
Code Issues Releases Wiki Activity

Remove depricated Perl usage of keys on scalar

Browse Source
This commit is contained in:
Mark Gurevich 2020-08-11 14:23:27 -04:00
parent 55d66c2fa1
commit 13d51ad7dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
xCAT-server/xCAT-wsapi/xcatws.cgi
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;