Closing DevIo devices too

git-svn-id: https://svn.fhem.de/fhem/trunk@3246 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/FHEM/Blocking.pm

@@ -77,10 +77,10 @@ BlockingCall($$@)
 
   # Child here
 
-  foreach my $d (sort keys %defs) {   # Close all open TCP-Server sockets
+  foreach my $d (sort keys %defs) {   # Close all kind of FD
     my $h = $defs{$d};
-    next if(!$h->{SERVERSOCKET});
-    TcpServer_Close($h);
+    TcpServer_Close($h) if($h->{SERVERSOCKET});
+    DevIo_CloseDev($h)  if($h->{DeviceName});
   }
   
   no strict "refs";