From c9112c924e73265bb7c779ca8dd91bb943de549f Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Tue, 4 Mar 2014 18:50:27 +0000
Subject: [PATCH] minor Fixes

git-svn-id: https://svn.fhem.de/fhem/trunk@5129 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_HMLAN.pm  | 8 ++++----
 fhem/FHEM/98_HMinfo.pm | 2 ++
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/00_HMLAN.pm b/fhem/FHEM/00_HMLAN.pm
index 3119af5a7..586bcc005 100755
--- a/fhem/FHEM/00_HMLAN.pm
+++ b/fhem/FHEM/00_HMLAN.pm
@@ -119,10 +119,10 @@ sub HMLAN_Define($$) {#########################################################
   $defs{$name}{helper}{log}{all} = 0;# selective log support
   $defs{$name}{helper}{log}{sys} = 0;
   my @al = ();
-  @{$defs{$name}{helper}{log}{ids}} = \@al;
-
-  $defs{$name}{helper}{assId} = 0;#define hash
+  @{$hash->{helper}{log}{ids}} = \@al;
 
+  $hash->{assignedIDsCnt} = 0;#define hash
+  $hash->{assignedIDs} = "";
   HMLAN_condUpdate($hash,253);#set disconnected
   $hash->{STATE} = "disconnected";
 
@@ -1021,7 +1021,7 @@ sub HMLAN_getVerbLvl ($$$$){#get verboseLevel for message
         <li><a href="#hmId">hmId</a></li><br>
         <li><a name="HMLANhmKey">hmKey</a></li><br>
         <li><a name="HMLANhmKey2">hmKey2</a></li><br>
-        <li><a name="HMLANhmKey3">hmKey3</a><br>
+        <li><a name="HMLANhmKey3">hmKey3</a></li><br>
         <li><a name="HMLANhmKey4">hmKey4</a></li><br>
         <li><a name="HMLANhmKey5">hmKey5</a><br>
         AES keys for the HMLAN adapter. <br>
diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index 2cce87002..7d7d652f8 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -394,6 +394,7 @@ sub HMinfo_tempList(@) { ######################################################
         }
       }
     }
+    close(aSave);
     foreach (@exec){
       my @param = split(" ",$_);
       CUL_HM_Set($defs{$param[0]},@param);
@@ -1149,6 +1150,7 @@ sub HMinfo_loadConfig($@) {####################################################
       }
     }
   }
+  close(aSave);
   $ret .= "\nadded data:\n     "          .join("\n     ",@el)       if (scalar@el);
   $ret .= "\nfile data incomplete:\n     ".join("\n     ",@elincmpl) if (scalar@elincmpl);
   $ret .= "\nentries not defind:\n     "  .join("\n     ",@entryNF)  if (scalar@entryNF);