ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/IO-AIO/AIO.pm
(Generate patch)

Comparing IO-AIO/AIO.pm (file contents):
Revision 1.145 by root, Sun Apr 19 19:20:10 2009 UTC vs.
Revision 1.147 by root, Wed Jun 3 12:24:49 2009 UTC

… …
193use strict 'vars'; 193use strict 'vars';
194 194
195use base 'Exporter'; 195use base 'Exporter';
196 196
197BEGIN { 197BEGIN {
198 our $VERSION = '3.18'; 198 our $VERSION = '3.19';
199 199
200 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close 200 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close
201 aio_stat aio_lstat aio_unlink aio_rmdir aio_readdir 201 aio_stat aio_lstat aio_unlink aio_rmdir aio_readdir
202 aio_scandir aio_symlink aio_readlink aio_sync aio_fsync 202 aio_scandir aio_symlink aio_readlink aio_sync aio_fsync
203 aio_fdatasync aio_sync_file_range aio_pathsync aio_readahead 203 aio_fdatasync aio_sync_file_range aio_pathsync aio_readahead
… …
342 342
343Reads or writes C<$length> bytes from or to the specified C<$fh> and 343Reads or writes C<$length> bytes from or to the specified C<$fh> and
344C<$offset> into the scalar given by C<$data> and offset C<$dataoffset> 344C<$offset> into the scalar given by C<$data> and offset C<$dataoffset>
345and calls the callback without the actual number of bytes read (or -1 on 345and calls the callback without the actual number of bytes read (or -1 on
346error, just like the syscall). 346error, just like the syscall).
347
348C<aio_read> will, like C<sysread>, shrink or grow the C<$data> scalar to
349offset plus the actual number of bytes read.
347 350
348If C<$offset> is undefined, then the current file descriptor offset will 351If C<$offset> is undefined, then the current file descriptor offset will
349be used (and updated), otherwise the file descriptor offset will not be 352be used (and updated), otherwise the file descriptor offset will not be
350changed by these calls. 353changed by these calls.
351 354
… …
588 my $grp = aio_group $cb; 591 my $grp = aio_group $cb;
589 592
590 aioreq_pri $pri; 593 aioreq_pri $pri;
591 add $grp aio_open $src, O_RDONLY, 0, sub { 594 add $grp aio_open $src, O_RDONLY, 0, sub {
592 if (my $src_fh = $_[0]) { 595 if (my $src_fh = $_[0]) {
593 my @stat = stat $src_fh; 596 my @stat = stat $src_fh; # hmm, might bock over nfs?
594 597
595 aioreq_pri $pri; 598 aioreq_pri $pri;
596 add $grp aio_open $dst, O_CREAT | O_WRONLY | O_TRUNC, 0200, sub { 599 add $grp aio_open $dst, O_CREAT | O_WRONLY | O_TRUNC, 0200, sub {
597 if (my $dst_fh = $_[0]) { 600 if (my $dst_fh = $_[0]) {
598 aioreq_pri $pri; 601 aioreq_pri $pri;
599 add $grp aio_sendfile $dst_fh, $src_fh, 0, $stat[7], sub { 602 add $grp aio_sendfile $dst_fh, $src_fh, 0, $stat[7], sub {
600 if ($_[0] == $stat[7]) { 603 if ($_[0] == $stat[7]) {
601 $grp->result (0); 604 $grp->result (0);
602 close $src_fh; 605 close $src_fh;
603 606
604 # those should not normally block. should. should. 607 my $ch = sub {
605 utime $stat[8], $stat[9], $dst; 608 aioreq_pri $pri;
606 chmod $stat[2] & 07777, $dst_fh; 609 add $grp aio_chmod $dst_fh, $stat[2] & 07777, sub {
607 chown $stat[4], $stat[5], $dst_fh; 610 aioreq_pri $pri;
611 add $grp aio_chown $dst_fh, $stat[4], $stat[5], sub {
612 aioreq_pri $pri;
613 add $grp aio_close $dst_fh;
614 }
615 };
616 };
608 617
609 aioreq_pri $pri; 618 aioreq_pri $pri;
610 add $grp aio_close $dst_fh; 619 add $grp aio_utime $dst_fh, $stat[8], $stat[9], sub {
620 if ($_[0] < 0 && $! == ENOSYS) {
621 aioreq_pri $pri;
622 add $grp aio_utime $dst, $stat[8], $stat[9], $ch;
623 } else {
624 $ch->();
625 }
626 };
611 } else { 627 } else {
612 $grp->result (-1); 628 $grp->result (-1);
613 close $src_fh; 629 close $src_fh;
614 close $dst_fh; 630 close $dst_fh;
615 631

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines