From 68b619243610bc1ad03bc69976b8d96e568e3e5a Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Tue, 9 Nov 2021 05:41:42 +0000
Subject: [PATCH] HMLAN:restrict reopen

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

diff --git a/fhem/FHEM/00_HMLAN.pm b/fhem/FHEM/00_HMLAN.pm
index d6a4cf64d..a76693708 100755
--- a/fhem/FHEM/00_HMLAN.pm
+++ b/fhem/FHEM/00_HMLAN.pm
@@ -142,6 +142,7 @@ sub HMLAN_Define($$) {#########################################################
   HMLAN_Attr("delete",$name,"loadLevel");
   $hash->{Clients} = ":CUL_HM:";
 
+  $hash->{nextOpenDelay} = 10;
   return DevIo_OpenDev($hash, 0, "HMLAN_DoInit") if $init_done;
   return;
 }
@@ -835,7 +836,7 @@ sub HMLAN_Parse($$) {##########################################################
 }
 sub HMLAN_Ready($) {###########################################################
   my ($hash) = @_;
-  return DevIo_OpenDev($hash, 1, "HMLAN_DoInit");
+  return DevIo_OpenDev($hash, 1, "HMLAN_DoInit",  sub(){});
 }
 sub HMLAN_SimpleWrite(@) {#####################################################
   my ($hash, $msg, $nonl) = @_;
@@ -909,6 +910,7 @@ sub HMLAN_SimpleWrite(@) {#####################################################
                              .' '        .$dst
                              .' '        .$p;
 
+    $hash->{helper}{q}{sending} = 1;
     $hash->{helper}{q}{scnt}++;  
   }
   else{