| … | … | ||
|---|---|---|---|
| 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 | $self->{ww}->stop unless length $self->{wbuf}; | 22 | delete $self->{ww} unless length $self->{wbuf}; |
| 23 | } if length $self->{wbuf}; | 23 | } if length $self->{wbuf}; |
| 24 | } | 24 | } |
| 25 | } | 25 | } |
| 26 | 26 | ||
| 27 | sub fatal { | 27 | sub fatal { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |