90_SIGNALduino_un.pm: perlcritic update

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@22410 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
sidey79 2020-07-16 20:10:41 +00:00
parent ded8bd4c30
commit 97d7bb1dd7

View File

@ -102,7 +102,7 @@ SIGNALduino_un_Parse($$)
my $bitData= unpack("B$blen", pack("H$hlen", $rawData));
Log3 $hash, 4, "$name converted to bits: $bitData";
if ($protocol == "21" && length($bitData)>=32) ##Einhell doorshutter
if ($protocol == 21 && length($bitData)>=32) ##Einhell doorshutter
{
Log3 $hash, 4, "$name / Einhell doorshutter received";
@ -115,7 +115,7 @@ SIGNALduino_un_Parse($$)
Log3 $hash, 4, "$name found doorshutter from Einhell. id=$id, channel=$channel, direction=$dir";
} elsif ($protocol == "23" && length($bitData)>=32) ##Perl Sensor
} elsif ($protocol == 23 && length($bitData)>=32) ##Perl Sensor
{
my $SensorTyp = "perl NC-7367?";
my $id = oct ("0b".substr($bitData,4,4));