diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm index 21bba8416..202b11c0a 100644 --- a/perl-xCAT/xCAT/Client.pm +++ b/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];