From 5e2433a8ff65cf2c5caa74a50e10af7dd6b025ce Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 26 Mar 2013 09:01:47 +0000
Subject: [PATCH] Patch from justme1968, see
 http://forum.fhem.de/index.php?t=post&reply_to=70364&rid=8

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

diff --git a/fhem/FHEM/Blocking.pm b/fhem/FHEM/Blocking.pm
index 001870772..0d5a6a9bc 100644
--- a/fhem/FHEM/Blocking.pm
+++ b/fhem/FHEM/Blocking.pm
@@ -74,6 +74,13 @@ BlockingCall($$@)
   }
 
   # Child here
+
+  foreach my $d (sort keys %defs) {   # Close all open TCP-Server sockets
+    my $h = $defs{$d};
+    next if(!$h->{SERVERSOCKET});
+    TcpServer_Close($h);
+  }
+  
   no strict "refs";
   my $ret = &{$blockingFn}($arg);
   use strict "refs";