From 13d51ad7dcb7bff3af2d1ef7ee50d6ac02719089 Mon Sep 17 00:00:00 2001
From: Mark Gurevich <gurevich@us.ibm.com>
Date: Tue, 11 Aug 2020 14:23:27 -0400
Subject: [PATCH] Remove depricated Perl usage of keys on scalar

---
 xCAT-server/xCAT-wsapi/xcatws.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xCAT-server/xCAT-wsapi/xcatws.cgi b/xCAT-server/xCAT-wsapi/xcatws.cgi
index 8b1259b22..bd0768137 100755
--- a/xCAT-server/xCAT-wsapi/xcatws.cgi
+++ b/xCAT-server/xCAT-wsapi/xcatws.cgi
@@ -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;