From e61ecdaae3065fbbb7fd7dabed703e32f7613578 Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Wed, 6 Dec 2017 16:57:27 +0100
Subject: [PATCH] Remove clp_sockets hash

This hash is not used but it prevents these sockets to be able to
be closed by running out of scope.
---
 clusterd | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/clusterd b/clusterd
index 0689eef..06989b6 100755
--- a/clusterd
+++ b/clusterd
@@ -1196,8 +1196,6 @@ sub run_cmd {
 our $CLP_PORT=235;
 our $clp_listen_socket;
 
-our %clp_sockets;
-
 our %CLP_HANDLER=('CMD'=>\&clp_rx_CMD,'LSOF'=>\&clp_rx_LSOF);
 
 sub clp_init {
@@ -1219,7 +1217,6 @@ sub clp_connect_request {
 	my $buffer='';
 
 	My::Select::reader($socket,sub{clp_receive($socket,\$buffer)});
-	$clp_sockets{$socket}=$socket;
 }
 
 sub clp_receive {
@@ -1227,7 +1224,6 @@ sub clp_receive {
 	my $data;
 	defined $s->recv($data,$TCP_MAX) or return;
 	if (!length($data) ) {
-		delete $clp_sockets{$s};
 		$s->close;
 		return;
 	}