| … | … | ||
|---|---|---|---|
| 587 | Scalar::Util::weaken $self; | 587 | Scalar::Util::weaken $self; |
| 588 | 588 | ||
| 589 | my $cb = sub { | 589 | my $cb = sub { |
| 590 | my $len = syswrite $self->{fh}, $self->{wbuf}; | 590 | my $len = syswrite $self->{fh}, $self->{wbuf}; |
| 591 | 591 | ||
| 592 | if ($len >= 0) { | 592 | if (defined $len) { |
| 593 | substr $self->{wbuf}, 0, $len, ""; | 593 | substr $self->{wbuf}, 0, $len, ""; |
| 594 | 594 | ||
| 595 | $self->{_activity} = AnyEvent->now; | 595 | $self->{_activity} = AnyEvent->now; |
| 596 | 596 | ||
| 597 | $self->{on_drain}($self) | 597 | $self->{on_drain}($self) |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |