From 096c5f55ebd4c2896d95128d85e646963d5aa5fc Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Thu, 19 Jun 2014 16:39:19 +0000
Subject: [PATCH] avoid crash at pairing

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 95f5a1eb7..bbcc7e598 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -6446,8 +6446,13 @@ sub CUL_HM_UpdtCentral($){
                  map{InternalVal($_,"owner_CCU","") eq $name ? $_ : ""}
                  keys %defs);
 
+  my @l = grep !/^$/,
+          map{AttrVal($_,"IODev","")} 
+          map{CUL_HM_id2Name($_)}
+          grep /^.{6}$/,
+          keys %{$modules{CUL_HM}{defptr}};
   my @myIos;# get all IOs using 'my' ID
-  foreach (CUL_HM_noDup(grep !/^$/,map{AttrVal($_,"IODev","")}keys %defs)){
+  foreach (CUL_HM_noDup(@l))  {
     push @myIos,$_ if (CUL_HM_h2IoId($defs{$_}) eq $id);
   }
   $defs{$name}{assignedIOs} = join(",",@myIos);
@@ -6477,7 +6482,7 @@ sub CUL_HM_UpdtCentral($){
     CommandDefine(undef,$name."_Btn$btn CUL_HM $ccuBId")
         if (!$modules{CUL_HM}{defptr}{$ccuBId});
     foreach my $pn (grep !/^$/,map{$_ if (AttrVal($_,"peerIDs","") =~ m/$id$btnS/)}keys %defs){
-      CUL_HM_ID2PeerList ($name."_Btn$btn",CUL_HM_name2Id($pn),1);
+      CUL_HM_ID2PeerList ($name."_Btn$btn",CUL_HM_name2Id($pn),1); 
     }
   }
   my $io = AttrVal($name,"IODev","empty");