fix a perl syntax error in conserver.pm

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4617 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc 2009-11-19 01:31:07 +00:00
parent c6f566c83b
commit d3897c07b1

View File

@ -160,13 +160,14 @@ sub preprocess_request {
my $no=$reqcopy->{node};
#print "node=@$no\n";
push @requests, $reqcopy;
}
} #end if
} #end foreach
if ($::DEBUG) {
my $rsp;
$rsp->{data}->[0] = "In preprocess_request, request is " . Dumper(@requests);
xCAT::MsgUtils->message("I", $rsp, $callback);
}
}
return \@requests;
}