From 7d4289e2e992a3671dca294fc82a68bd59ac8d37 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 5 Dec 2013 15:23:11 +0000
Subject: [PATCH] TcpServerUtils: trying to avoid write on close filehandle

git-svn-id: https://svn.fhem.de/fhem/trunk@4326 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/TcpServerUtils.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/fhem/FHEM/TcpServerUtils.pm b/fhem/FHEM/TcpServerUtils.pm
index 7ff16ce6d..87f506408 100644
--- a/fhem/FHEM/TcpServerUtils.pm
+++ b/fhem/FHEM/TcpServerUtils.pm
@@ -138,12 +138,15 @@ TcpServer_Close($)
 
   if(defined($hash->{CD})) { # Clients
     close($hash->{CD});
+    delete($hash->{CD}); 
     delete($selectlist{$name});
+    delete($hash->{FD});  # Avoid Read->Close->Write
   }
   if(defined($hash->{SERVERSOCKET})) {          # Server
     close($hash->{SERVERSOCKET});
     $name = $name . "." . $hash->{PORT};
     delete($selectlist{$name});
+    delete($hash->{FD});  # Avoid Read->Close->Write
   }
   return undef;
 }