1
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00

repair regset for channels higher then 10

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@4680 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-01-18 08:50:19 +00:00
parent 600ddf7d43
commit 3b6175cc6f

View File

@ -1512,7 +1512,7 @@ sub CUL_HM_Parse($$) {##############################
}
elsif (eval "defined(&CUL_HM_Parse$st)"){####################################
no strict "refs";
my @ret = &{"CUL_HM_Parse$st"}($mFlg,$mTp,$src,$dst,$p);
my @ret = &{"CUL_HM_Parse$st"}($mFlg,$mTp,$src,$dst,$p,$target);
use strict "refs";
push @entities,@ret;
push @event,"" if (@ret);
@ -2734,7 +2734,7 @@ sub CUL_HM_Set($@) {
my $cHash = CUL_HM_id2Hash($dst.($lChn eq '00'?"":$lChn));
$cHash = $hash if (!$cHash);
CUL_HM_pushConfig($cHash,$id,$dst,$lChn,$peerId,hex($peerChn),$list
CUL_HM_pushConfig($cHash,$id,$dst,hex($lChn),$peerId,hex($peerChn),$list
,$addrData,$prep);
CUL_HM_PushCmdStack($hash,$_) foreach(@postCmds);#ugly commands after regSet