Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

10_MAX.pm:fix Perl warning at line 1738

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23517 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Wzut 2021-01-13 15:38:49 +00:00
parent 602ebebd86
commit 37170da512
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/FHEM/10_MAX.pm
View File

@ -1730,6 +1730,7 @@ sub MAX_Parse
elsif($msgtype eq "PushButtonState") elsif($msgtype eq "PushButtonState")
{ {
my ($bits2, $isopen) = unpack("aC",pack("H*",$args[0])); my ($bits2, $isopen) = unpack("aC",pack("H*",$args[0]));
$isopen //= '?';
#The meaning of $bits2 is completly guessed based on similarity to other devices, TODO: confirm #The meaning of $bits2 is completly guessed based on similarity to other devices, TODO: confirm
$shash->{'.gateway'} = vec($bits2, 4, 1); # Paired to a CUBE? $shash->{'.gateway'} = vec($bits2, 4, 1); # Paired to a CUBE?
$shash->{'.rferror'} = vec($bits2, 6, 1); # communication with link partner (1 if we did not sent an Ack) $shash->{'.rferror'} = vec($bits2, 6, 1); # communication with link partner (1 if we did not sent an Ack)