[gelöst] [patch] 47_OBIS.pm - Fix warning when device type none

[dennisk]

Ist angepasst!

Vielen Dank nochmal!

[chri.jaes]

Hallo gvzdus,

ich habe seid August 2024 auch einen patch fuer 47_OBIS.pm im Forum plaziert, der leider noch unbeantwortet ist (auch per direkter PM).

https://forum.fhem.de/index.php?topic=139059.msg1319101#msg1319101
[patch] Unterstuetzung WMZ von Siemens UH50/Landis+Gyr T550 in 47_OBIS.pm.

Waere schoen wenn er hinein kommen koennte.

VG Christoph

[dennisk]

Hallo @gvzdus,

mit Perl 5.42 gibt es neue Warnings, die u.a. beim OBIS-Modul an einer Stelle auftreten:

Code Auswählen Erweitern

PERL WARNING: Possible precedence problem between ! and string eq at /usr/share/fhem/FHEM/47_OBIS.pm line 648, <$fh> line 2067.Das ist bei mir die folgende Zeile (FHEM ist auf aktuellem Stand,sprich das OBIS-Modul entspricht dem Stand im SVN):

Code Auswählen Erweitern

DevIo_SimpleWrite($hash,$hash->{helper}{DEVICES}[2],undef) if (!$hash->{helper}{DEVICES}[2] eq "");Laut https://perldoc.perl.org/perldelta#New-Warnings liegt es an der Negation im if am Ende der Zeile. Wenn ich es richtig verstehe, dann müsste nur die folgende kleine Änderung ausreichen, wobei die Bedeutung des Codes nach meinem Verständnis dieselbe bleibt:

Code Auswählen Erweitern

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

Code Auswählen Erweitern

DevIo_SimpleWrite($hash,$hash->{helper}{DEVICES}[2],undef) if ($hash->{helper}{DEVICES}[2] ne "");Passt das aus Deiner Sicht auch? Könntest Du die Änderung entsprechend ins SVN übernehmen?

Danke und Grüße