Autor Thema: HTTPUTILS Perl Warning nach jedem Start / Variable $ret uninitialized  (Gelesen 81 mal)

Offline blackbite

  • Jr. Member
  • **
  • Beiträge: 94
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:

$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
Blackbite