10_MAX.pm:fix Perl warning at line 1738

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@23517 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Wzut 2021-01-13 15:38:49 +00:00
parent b95bab8253
commit e0533a13c3

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)