| … | |
… | |
| 190 | use strict 'vars'; |
190 | use strict 'vars'; |
| 191 | |
191 | |
| 192 | use base 'Exporter'; |
192 | use base 'Exporter'; |
| 193 | |
193 | |
| 194 | BEGIN { |
194 | BEGIN { |
| 195 | our $VERSION = '2.32'; |
195 | our $VERSION = '2.33'; |
| 196 | |
196 | |
| 197 | our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat |
197 | our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat |
| 198 | aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink |
198 | aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink |
| 199 | aio_readlink aio_fsync aio_fdatasync aio_readahead aio_rename aio_link |
199 | aio_readlink aio_fsync aio_fdatasync aio_readahead aio_rename aio_link |
| 200 | aio_move aio_copy aio_group aio_nop aio_mknod aio_load aio_rmtree aio_mkdir); |
200 | aio_move aio_copy aio_group aio_nop aio_mknod aio_load aio_rmtree aio_mkdir); |
| … | |
… | |
| 469 | my $pri = aioreq_pri; |
469 | my $pri = aioreq_pri; |
| 470 | my $grp = aio_group $cb; |
470 | my $grp = aio_group $cb; |
| 471 | |
471 | |
| 472 | aioreq_pri $pri; |
472 | aioreq_pri $pri; |
| 473 | add $grp aio_open $path, O_RDONLY, 0, sub { |
473 | add $grp aio_open $path, O_RDONLY, 0, sub { |
| 474 | my ($fh) = @_ |
474 | my $fh = shift |
| 475 | or return $grp->result (-1); |
475 | or return $grp->result (-1); |
| 476 | |
476 | |
| 477 | aioreq_pri $pri; |
477 | aioreq_pri $pri; |
| 478 | add $grp aio_read $fh, 0, (-s $fh), $$data, 0, sub { |
478 | add $grp aio_read $fh, 0, (-s $fh), $$data, 0, sub { |
| 479 | $grp->result ($_[0]); |
479 | $grp->result ($_[0]); |
