From d1e725e42ee725c87c53db155d48e9487d76ed39 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Thu, 7 Dec 2017 13:22:34 +0100
Subject: [PATCH] Increase listen queue size for clp port

With 234 hosts pulling a file we failed to service a single on with the
old setting listen=1.
---
 clusterd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/clusterd b/clusterd
index 60fc54f..97867d9 100755
--- a/clusterd
+++ b/clusterd
@@ -1302,7 +1302,7 @@ our $clp_listen_socket;
 our %CLP_HANDLER=('CMD'=>\&clp_rx_CMD,'LSOF'=>\&clp_rx_LSOF,'PULL'=>\&clp_rx_PULL);
 
 sub clp_init {
-	$clp_listen_socket=new IO::Socket::INET(LocalPort=>$CLP_PORT,Proto=>'tcp',Listen=>1,ReuseAddr=>1);
+	$clp_listen_socket=new IO::Socket::INET(LocalPort=>$CLP_PORT,Proto=>'tcp',Listen=>128,ReuseAddr=>1);
 	defined $clp_listen_socket or die "$!\n";
 	My::Select::reader($clp_listen_socket,\&clp_connect_request);
 }