PID20: Use of uninitialized value $retStr ...

[Thorsten Pferdekaemper]

Hi,
seit einiger Zeit müllt mir die folgende Meldung meine fhem.log voll:

Code Auswählen Erweitern


PERL WARNING: Use of uninitialized value $retStr in concatenation (.) or string at ./FHEM/98_PID20.pm line 686.

Meiner Meinung kommt das aus 98_PID20.pm, und zwar hier:

Code Auswählen Erweitern


       $actuationDone=$actuation;
        my $retStr="" if (!$ret);     
        PID20_Log $hash, 3, "<$cmd> with ret:$retStr";    # <<<< hier passierts (Zeile 686)
     }

Ich denke mal, dass $ret normalerweise tatsächlich was enthält und deshalb $retStr eben nicht wirklich definiert ist. Vielleicht war ja eigenlich sowas gemeint:

Code Auswählen Erweitern


       $actuationDone=$actuation;
        my $retStr="";
        $retStr = $ret if ($ret);     
        PID20_Log $hash, 3, "<$cmd> with ret:$retStr";    # <<<< hier passierts (Zeile 686)
     }


Könnte das mal jemand korrigieren?
Gruß,
   Thorsten

[John]

Hi Thorsten,
ich bin der "jemand".

Kannst du bitte folgendes versuchen:
Zeile 685

Code Auswählen Erweitern

my $retStr="" if (!$ret) || (!defined($ret)); 

Alles andere bitte so lassen, wie es war.

John

[Thorsten Pferdekaemper]

Hi,
was soll das bringen? Ein paar Zeilen weiter oben steht das hier:

Code Auswählen Erweitern


        # execute command
        my $ret;
        $ret = fhem $cmd; 

Dadurch ist $ret immer "defined", oder?
Außerdem: Wieso machst Du Dir überhaupt die Mühe mit dem $ret, wenn damit nie etwas gemacht wird?
Gruß,
   Thorsten

[John]

Hab das Problem gefunden und die neue Version eingechecked.

John