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;
 	}