undefined < 0 möglich

[Struppi]

der Fehler im Log lautet:

uninitialized value at Blubberkram Line 51,52,53 in einer Endlosschleife. immer wieder dieser Fehler, abwechselnd in 51,52,53, was logisch ist.

Blubberkram:
while($sent > 0) {
   my $n = syswrite($data, $buf, $sent,$off);
51   return $n if $n < 0;
52   $sent -= $n;
53   $off += $n;

Wenn $n undefiniert ist, ist es nicht kleimner als 0, kann aber auch nicht von $sent abgezogen werden und nciht zu $off dazu addiert werden.

my $n = syswrite($data, $buf, $sent,$off);
51   return $n unless $n;

Ich vermute mal, das die Funktion beendet werden kann wenn nichts geschrieben wurde. Ansonsten:

51   return $n unless defined $n;

Falls $n auch den Wert 0 haben darf.

Struppi.