From d6cef63a0347144da80d9b5ac7ce761b6314f0b9 Mon Sep 17 00:00:00 2001
From: daniceexi <wxp@cn.ibm.com>
Date: Tue, 15 Oct 2013 14:26:44 -0400
Subject: [PATCH] roll back last change and only added the neccessary fix

---
 xCAT-server/sbin/xcatd | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/xCAT-server/sbin/xcatd b/xCAT-server/sbin/xcatd
index 7263c8e97..99193da5a 100755
--- a/xCAT-server/sbin/xcatd
+++ b/xCAT-server/sbin/xcatd
@@ -876,9 +876,6 @@ until ($quit) {
       next; #just keep pulling things off listen queue onto our own
   }
   my $cnnection=shift @pendingconnections;
-  my $previous = select ($cnnection); #assure that perl buffering is not in play at the low level
-  $|=1;
-  select ($previous);
   my $connection;
   my $child = xCAT::Utils->xfork(); #Yes we fork, IO::Socket::SSL is not threadsafe..
   if ($child) {
@@ -915,9 +912,6 @@ until ($quit) {
     unless ($connection) {
        xexit 0;
     }
-    $previous=select($connection); #also assure buffering not in play at SSL socket, which seems to be possibly independent of lower socket
-    $|=1;
-    select($previous);
     $clientselect->add($connection);
     my $peerhost=undef;
     my $peerfqdn=undef;
@@ -1738,7 +1732,7 @@ sub service_connection {
       my $bytesread;
       do  { $bytesread=sysread($sock,$line,65536,length($line)) } while ($bytesread);
       if (length($line)==0) {
-              if (not defined $bytesread and ($! == EAGAIN or $! == ECHILD)) { next; } # ECHILD makes no sense, but some platform does it
+	      if (not defined $bytesread and ($! == EAGAIN or $! == ECHILD)) { next; } # ECHILD makes no sense, but some platform does
 	      last;
       }
     	 $flags=fcntl($sock,F_GETFL,0);