Fix problem where Client would wait for EOF with storable encoding.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@16993 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2013-07-17 15:29:26 +00:00
parent 5801a0db29
commit 40f9dee2c6

View File

@ -324,7 +324,7 @@ if (ref($request) eq 'HASH') { # the request is an array, not pure XML
} else { #storable encode
my $rsp;
eval { $rsp = fd_retrieve($client); };
while ($rsp) {
SERVERINPUT: while ($rsp) {
my @rsps;
if (ref $rsp eq 'ARRAY') {
@rsps = @$rsp;
@ -335,7 +335,7 @@ if (ref($request) eq 'HASH') { # the request is an array, not pure XML
$callback->($_);
if ($_->{serverdone}) {
$cleanexit=1;
last;
last SERVERINPUT;
}
}
$rsp = undef;