| … | |
… | |
| 17 | |
17 | |
| 18 | $self->{ww} = AE::io $self->{fh}, 1, sub { |
18 | $self->{ww} = AE::io $self->{fh}, 1, sub { |
| 19 | my $len = syswrite $self->{fh}, $self->{wbuf}; |
19 | my $len = syswrite $self->{fh}, $self->{wbuf}; |
| 20 | substr $self->{wbuf}, 0, $len, ""; |
20 | substr $self->{wbuf}, 0, $len, ""; |
| 21 | |
21 | |
|
|
22 | delete $self->{ww} unless $len; # in case of errors, stop |
| 22 | delete $self->{ww} unless length $self->{wbuf}; |
23 | delete $self->{ww} unless length $self->{wbuf}; |
| 23 | } if length $self->{wbuf}; |
24 | } if length $self->{wbuf}; |
| 24 | } |
25 | } |
| 25 | } |
26 | } |
| 26 | |
27 | |
