… | … | ||
---|---|---|---|
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 |