Have Client.pm tolerate callers that neglect to 'array-ify' rsp->node

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11710 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

perl-xCAT/xCAT/Client.pm

@@ -955,6 +955,9 @@ sub handle_response {
   if (scalar @{$rsp->{node}}) {
 #print "printing node\n";
     my $nodes=($rsp->{node});
+    unless (ref $nodes eq 'ARRAY') {
+	$nodes = [$nodes];
+    }
     my $node;
     foreach $node (@$nodes) {
       my $desc=$node->{name}->[0];