avoid crash at pairing

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6142 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876
2014-06-19 16:39:19 +00:00
parent b8f2211c49
commit 159bbc88d6

View File

@@ -6446,8 +6446,13 @@ sub CUL_HM_UpdtCentral($){
map{InternalVal($_,"owner_CCU","") eq $name ? $_ : ""} map{InternalVal($_,"owner_CCU","") eq $name ? $_ : ""}
keys %defs); 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 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); push @myIos,$_ if (CUL_HM_h2IoId($defs{$_}) eq $id);
} }
$defs{$name}{assignedIOs} = join(",",@myIos); $defs{$name}{assignedIOs} = join(",",@myIos);