2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00

10_MAX.pm:fix Perl warning at line 1738

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

View File

@ -1730,6 +1730,7 @@ sub MAX_Parse
elsif($msgtype eq "PushButtonState")
{
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
$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)