HTTPUTILS Perl Warning nach jedem Start / Variable $ret uninitialized

[blackbite]

Hallo FHEM-Gemeinde,

ich denke, die PERL Warning ist unwichtig und eher von kosmetischer Natur, aber könnte man die bei Gelegenheit noch aus den Logs bekommen? Ich sehe, dass diese Warnung bei sehr vielen Leuten in den Logs steht.

PERL WARNING: Use of uninitialized value $ret in numeric le (< at FHEM/HttpUtils.pm line 621.

Beim Start wird wohl die Variable nicht definiert sein, deshalb kann der Vergleich <= 0 nicht klappen. Müsste diese Code-Section sein:

Code Auswählen Erweitern

$data = $hdr.(defined($data) ? $data:"");
    $hash->{directWriteFn} = sub($) { # Nonblocking write
      my $ret = syswrite $hash->{conn}, $data;
      if($ret <= 0) {
        return if($! == EAGAIN);
        my $err = $!;
        RemoveInternalTimer(\%timerHash);
        HttpUtils_Close($hash);
        return $hash->{callback}($hash, "write error: $err", undef)
      }

Besten Dank
Blackbite