From 1c263d31f4f0a23fc6a0cf389accf422d722e5df Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 22 Jul 2013 11:14:19 +0000
Subject: [PATCH] fix peerChan nameresolution

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3473 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 43fafff94..cc3fdffd1 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -2589,7 +2589,7 @@ sub CUL_HM_Set($@) {
     my $peerHash;
 	$peerHash = $modules{CUL_HM}{defptr}{$peerDst.$peerChn}if ($modules{CUL_HM}{defptr}{$peerDst.$peerChn});
     $peerHash = $modules{CUL_HM}{defptr}{$peerDst}         if (!$peerHash);
-    return "$peerN not a CUL_HM device"                           if($target && ($target ne "remote") &&(!$peerHash ||$peerHash->{TYPE} ne "CUL_HM"));
+	return "$peerN not a CUL_HM device"                           if($target && ($target ne "remote") &&(!$peerHash ||$peerHash->{TYPE} ne "CUL_HM"));
     return "$single must be single or dual"                       if(defined($single) && ($single !~ m/^(single|dual)$/));
     return "$set must be set or unset"                            if(defined($set)    && ($set    !~ m/^(set|unset)$/));
     return "$target must be [actor|remote|both]"                  if(defined($target) && ($target !~ m/^(actor|remote|both)$/));
@@ -2646,8 +2646,8 @@ sub CUL_HM_Set($@) {
 	    my $peerFlag = CUL_HM_getFlag($peerHash);
         CUL_HM_PushCmdStack($peerHash, sprintf("++%s01%s%s%s%s%s%02X%02X",
             $peerFlag,$id,$peerDst,$peerChn,$cmdB,$dst,$b2,$b1 ));
-		CUL_HM_queueAutoRead($peerHash->{name}) 
-		      if (2 < CUL_HM_getAttrInt($peerHash->{name},"autoReadReg"));
+		CUL_HM_queueAutoRead($peerHash->{NAME}) 
+		      if (2 < CUL_HM_getAttrInt($peerHash->{NAME},"autoReadReg"));
 	  }
 	}
 	return ("",1) if ($target && $target eq "remote");#Nothing to transmit for actor