fix the output sorting about "nodels lpar"

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5184 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
wuzhy 2010-02-08 04:19:37 +00:00
parent 5e5b262047
commit 75526bb297

View File

@ -868,8 +868,7 @@ sub handle_response {
#print "printing node\n";
my $nodes=($rsp->{node});
my $node;
my @nodelist = sort {$a cmp $b} @$nodes;
foreach $node (@nodelist) {
foreach $node (@$nodes) {
my $desc=$node->{name}->[0];
if ($node->{errorcode}) {
if (ref($node->{errorcode}) eq 'ARRAY') { foreach my $ecode (@{$node->{errorcode}}) { $xCAT::Client::EXITCODE |= $ecode; } }