[patch] 47_OBIS.pm

[dennisk]

Hallo gvzdus,

hier mal wieder ein kleiner Fix für eine Warnung, die seit dem neuesten Perl-Release 5.42 auftaucht:
PERL WARNING: Possible precedence problem between ! and string eq at /usr/share/fhem/FHEM/47_OBIS.pm line 648, <$fh> line 2072.

Dies lässt sich meinem Verständnis nach sehr einfach lösen:
Aus der ursprünglichen Zeile:

Code Auswählen Erweitern

DevIo_SimpleWrite($hash,$hash->{helper}{DEVICES}[2],undef) if (!$hash->{helper}{DEVICES}[2] eq "");wird:

Code Auswählen Erweitern

DevIo_SimpleWrite($hash,$hash->{helper}{DEVICES}[2],undef) if (defined $hash->{helper}{DEVICES}[2] && $hash->{helper}{DEVICES}[2] ne "");

Könntest Du das bitte entsprechend prüfen und anpassen?
Danke und viele Grüße