Changeset 380 for trunk/lib/Perlbal/AIO.pm

Timestamp:

08/06/05 04:33:10 (5 years ago)

Author:

bradfitz

Message:

make Perlbal::AIO's aio_{read|write} not change the $fh's offset, ala
pread/pwrite, as used by {Linux,IO}::AIO

Files:

• trunk/lib/Perlbal/AIO.pm (modified) (3 diffs)

trunk/lib/Perlbal/AIO.pm

@@ -5 +5 @@
 
 package Perlbal::AIO;
-use POSIX qw();
+
+use Fcntl qw(SEEK_CUR SEEK_SET SEEK_END);
 
 sub aio_stat {
@@ -69 +70 @@
         IO::AIO::aio_write($fh, $offset, $length, $_[3], 0, $cb);
     } else {
+        my $old_off = sysseek($fh, 0, SEEK_CUR);
         sysseek($fh, $offset, 0);
         my $rv = syswrite($fh, $_[3], $length, 0);
+        sysseek($fh, $old_off, SEEK_SET);
         $cb->($rv);
     }
@@ -85 +88 @@
         IO::AIO::aio_read($fh, $offset, $length, $_[3], 0, $cb);
     } else {
+        my $old_off = sysseek($fh, 0, SEEK_CUR);
         sysseek($fh, $offset, 0);
         my $rv = sysread($fh, $_[3], $length, 0);
+        sysseek($fh, $old_off, SEEK_SET);
         $cb->($rv);
     }