Move increased tolerance for list/scalar parameter ahead so it actually matters

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11721 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2012-03-01 14:30:14 +00:00
parent 5b0b967a30
commit 7a89b99b71

View File

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