| … | … | ||
|---|---|---|---|
| 631 | 631 | ||
| 632 | Coro::AIO::aio_read $fh, $l, ($h > $bufsize ? $bufsize : $h), my $buf, 0 | 632 | Coro::AIO::aio_read $fh, $l, ($h > $bufsize ? $bufsize : $h), my $buf, 0 |
| 633 | or last; | 633 | or last; |
| 634 | 634 | ||
| 635 | $tbf->request (length $buf); | 635 | $tbf->request (length $buf); |
| 636 | my $w = syswrite $self->{fh}, $buf | 636 | my $w = $self->{fh}->syswrite ($buf) |
| 637 | or last; | 637 | or last; |
| 638 | $::written += $w; | 638 | $::written += $w; |
| 639 | $self->{written} += $w; | 639 | $self->{written} += $w; |
| 640 | $l += $w; | 640 | $l += $w; |
| 641 | } | 641 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |