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

@@ -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,15 +1217,13 @@ sub clp_connect_request {
 	my $buffer='';
 
 	My::Select::reader($socket,sub{clp_receive($socket,\$buffer)});
-	$clp_sockets{$socket}=$socket;
 }
 
 sub clp_receive {
 	my ($s,$bufref)=@_;
 	my $data;
 	defined $s->recv($data,$TCP_MAX) or return;
 	if (!length($data) ) {
-		delete $clp_sockets{$s};
 		$s->close;
 		return;
 	}