| … | |
… | |
| 11 | |
11 | |
| 12 | AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent |
12 | AnyEvent::Handle - non-blocking I/O on file handles via AnyEvent |
| 13 | |
13 | |
| 14 | =cut |
14 | =cut |
| 15 | |
15 | |
| 16 | our $VERSION = 4.88; |
16 | our $VERSION = 4.881; |
| 17 | |
17 | |
| 18 | =head1 SYNOPSIS |
18 | =head1 SYNOPSIS |
| 19 | |
19 | |
| 20 | use AnyEvent; |
20 | use AnyEvent; |
| 21 | use AnyEvent::Handle; |
21 | use AnyEvent::Handle; |
| … | |
… | |
| 981 | |
981 | |
| 982 | sub _drain_rbuf { |
982 | sub _drain_rbuf { |
| 983 | my ($self) = @_; |
983 | my ($self) = @_; |
| 984 | |
984 | |
| 985 | # avoid recursion |
985 | # avoid recursion |
| 986 | return if exists $self->{_skip_drain_rbuf}; |
986 | return if $self->{_skip_drain_rbuf}; |
| 987 | local $self->{_skip_drain_rbuf} = 1; |
987 | local $self->{_skip_drain_rbuf} = 1; |
| 988 | |
988 | |
| 989 | if ( |
989 | if ( |
| 990 | defined $self->{rbuf_max} |
990 | defined $self->{rbuf_max} |
| 991 | && $self->{rbuf_max} < length $self->{rbuf} |
991 | && $self->{rbuf_max} < length $self->{rbuf} |
