From e6483b79be20c20f7dc67c5630f4a649b8219674 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 17 Jul 2012 14:51:14 +0000
Subject: [PATCH] Fix usual hash problem: checking $hash{val1}{val2} creates
 $hash{val1} with an undefined value.

git-svn-id: https://svn.fhem.de/fhem/trunk@1737 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 933ab1eda..d57d3b3a0 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -1675,9 +1675,10 @@ CUL_HM_id2Name($)
   }
   my $name;
   $name = "broadcast" if($devId eq "000000"); 
-  $name = $modules{CUL_HM}{defptr}{$chnId}->{NAME} if(!$name && $chnId); 
+  my $defPtr = $modules{CUL_HM}{defptr};
+  $name = $defPtr->{$chnId}{NAME} if(!$name && $chnId && $defPtr->{$chnId}); 
   if (!$name){
-    $name = $modules{CUL_HM}{defptr}{$devId}->{NAME};
+    $name = $defPtr->{$devId}{NAME} if($defPtr->{$devId});
     $name = $devId if(!$name);
     $name .= ($chn ? (" chn:".$chn):"");
   }