From 533d5ef6299c7d09e5010f5fc30c828d4f9b688c Mon Sep 17 00:00:00 2001 From: sidey79 Date: Thu, 16 Jul 2020 20:10:41 +0000 Subject: [PATCH] 90_SIGNALduino_un.pm: perlcritic update git-svn-id: https://svn.fhem.de/fhem/trunk@22410 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/90_SIGNALduino_un.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/90_SIGNALduino_un.pm b/fhem/FHEM/90_SIGNALduino_un.pm index 89b3ed54c..a310cb9b4 100644 --- a/fhem/FHEM/90_SIGNALduino_un.pm +++ b/fhem/FHEM/90_SIGNALduino_un.pm @@ -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));