From fcbb6094ce62fb7546648c4353b4c73a90d08fdc Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Wed, 18 Oct 2017 14:00:32 +0200
Subject: [PATCH] clusterd: Dereference CLP tcp socket after hangup

We have a small leak here, that clp sockets keep referenced after the
peer closed. Fix.
---
 clusterd/clusterd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/clusterd/clusterd b/clusterd/clusterd
index 3e439b2..5a9c30e 100755
--- a/clusterd/clusterd
+++ b/clusterd/clusterd
@@ -1056,7 +1056,7 @@ sub clp_receive {
 	my $data;
 	defined $s->recv($data,$TCP_MAX) or return;
 	if (!length($data) ) {
-		delete $mgmt_sockets{$s};
+		delete $clp_sockets{$s};
 		$s->close;
 		return;
 	}