From 52f59a3ad3d72df7fd6447c9d51ec41c795a03c4 Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 8 Apr 2014 17:47:25 +0000
Subject: [PATCH] resolve peering reading bug

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5490 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 50af4d429..7927f1541 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -5026,8 +5026,7 @@ sub CUL_HM_ID2PeerList ($$$) {
       if ($chn eq "04"){
         #if 04 is peered we are "teamed" -> set channel 05
         my $ch05H = $modules{CUL_HM}{defptr}{$dHash->{DEF}."05"};
-        CUL_HM_UpdtReadSingle($ch05H,"state","peered",0)
-            if($ch05H);
+        CUL_HM_UpdtReadSingle($ch05H,"state","peered",0) if($ch05H);
       }
       else{
         CUL_HM_UpdtReadSingle($hash,"state","peered",0);
@@ -5040,7 +5039,8 @@ sub CUL_HM_ID2PeerList ($$$) {
     if (($md =~ m/HM-CC-RT-DN/     && $chn=~ m/(02|03|04|05|06)/)
       ||($md eq "HM-TC-IT-WM-W-EU" && $chn=~ m/(03|06|07)/)){
       if ($chn eq "04"){
-        CUL_HM_UpdtReadSingle($modules{CUL_HM}{defptr}{$dHash->{DEF}."05"},"state","peered");
+        my $ch05H = $modules{CUL_HM}{defptr}{$dHash->{DEF}."05"};
+        CUL_HM_UpdtReadSingle($ch05H,"state","unpeered")) if($ch05H);
       }
       else{
         CUL_HM_UpdtReadSingle($hash,"state","unpeered");