| … | |
… | |
| 14 | |
14 | |
| 15 | AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent |
15 | AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent |
| 16 | |
16 | |
| 17 | =cut |
17 | =cut |
| 18 | |
18 | |
| 19 | our $VERSION = 4.452; |
19 | our $VERSION = 4.8; |
| 20 | |
20 | |
| 21 | =head1 SYNOPSIS |
21 | =head1 SYNOPSIS |
| 22 | |
22 | |
| 23 | use AnyEvent; |
23 | use AnyEvent; |
| 24 | use AnyEvent::Handle; |
24 | use AnyEvent::Handle; |
| … | |
… | |
| 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) |
