From 40f9dee2c659d7ac4119ae5f8ef3458cf718fe1e Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 17 Jul 2013 15:29:26 +0000
Subject: [PATCH] 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
---
 perl-xCAT/xCAT/Client.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index deb54c380..702fbd15f 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -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;