Warnungen durch 98_autocreate.pm

[mumpitzstuff]

Ich erhalte ständig Warnungen im Logfile:

Code Auswählen Erweitern

2018.10.12 00:21:21 1: PERL WARNING: Use of uninitialized value $it in concatenation (.) or string at ./FHEM/98_autocreate.pm line 135.
2018.10.12 00:21:21 1: stacktrace:
2018.10.12 00:21:21 1:     main::__ANON__                      called by ./FHEM/98_autocreate.pm (135)
2018.10.12 00:21:21 1:     main::autocreate_Notify             called by fhem.pl (3597)
2018.10.12 00:21:21 1:     main::CallFn                        called by fhem.pl (3517)
2018.10.12 00:21:21 1:     main::DoTrigger                     called by fhem.pl (3855)
2018.10.12 00:21:21 1:     main::Dispatch                      called by ./FHEM/00_CUL.pm (947)
2018.10.12 00:21:21 1:     main::CUL_Parse                     called by ./FHEM/00_CUL.pm (831)
2018.10.12 00:21:21 1:     main::CUL_Read                      called by fhem.pl (3597)
2018.10.12 00:21:21 1:     main::CallFn                        called by fhem.pl (726)

Code Auswählen Erweitern

my $it = AttrVal($me, "ignoreTypes", undef);
$it = "^$it\$" if($featurelevel > 5.8); # Forum #80775

Wenn das Attribut ignoreTypes nicht gesetzt ist, dann ist $it an der Stelle undef und sollte dann auch nicht in der regular Expression verwendet werden. Kurz danach wird es noch einmal verwendet, ohne zu prüfen, ob die Variable definiert ist.

[Phill]

Damit sollte die Warnung verschwinden. Außerdem hatte die Variable den undef Status verloren bei $featurelevel > 5.8.

Code Auswählen Erweitern

my $it = AttrVal($me, "ignoreTypes", undef);
$it = "^$it\$" if(defined $it && $featurelevel > 5.8); # Forum #80775

[mumpitzstuff]

Die Warning erscheint bei mir jetzt nicht mehr im Log.