… | |
… | |
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]); |