From 5fafa161a69bf0a70cb80bd90f79580d93b6616a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 29 Sep 2020 17:43:13 +0000
Subject: [PATCH] TcpServerUtils.pm: second try to fix the addToWriteBuffer bug
 (Forum #114435)

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

diff --git a/fhem/FHEM/TcpServerUtils.pm b/fhem/FHEM/TcpServerUtils.pm
index 4f72d5a34..a6fd3aba2 100644
--- a/fhem/FHEM/TcpServerUtils.pm
+++ b/fhem/FHEM/TcpServerUtils.pm
@@ -214,19 +214,21 @@ TcpServer_Close($@)
     delete($selectlist{$name});
     delete($hash->{FD});  # Avoid Read->Close->Write
     %ntfyHash = ();
-    if($dodel) {
-      delete $attr{$name};
-      delete $defs{$name};
-    } else {
-      $hash->{stacktrace} = stacktraceAsString(1);
-    }
   }
+
   if(defined($hash->{SERVERSOCKET})) {          # Server
     close($hash->{SERVERSOCKET});
     $name = $name . "." . $hash->{PORT};
     delete($selectlist{$name});
     delete($hash->{FD});  # Avoid Read->Close->Write
   }
+
+  if($dodel) {
+    delete $attr{$name};
+    delete $defs{$name};
+  } else {
+    $hash->{stacktrace} = stacktraceAsString(1);
+  }
   return undef;
 }