--- IO-AIO/AIO.pm	2006/06/24 16:27:02	1.50
+++ IO-AIO/AIO.pm	2006/06/24 19:14:04	1.51
@@ -63,22 +63,20 @@
 package IO::AIO;
 
 no warnings;
+use strict 'vars';
 
 use base 'Exporter';
 
-use Fcntl ();
-
 BEGIN {
-   $VERSION = '1.8';
+   our $VERSION = '1.8';
 
-   @EXPORT = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat
-                aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink
-                aio_fsync aio_fdatasync aio_readahead aio_rename aio_link aio_move);
-   @EXPORT_OK = qw(poll_fileno poll_cb min_parallel max_parallel
-                   max_outstanding nreqs);
+   our @EXPORT = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat
+                    aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink
+                    aio_fsync aio_fdatasync aio_readahead aio_rename aio_link aio_move);
+   our @EXPORT_OK = qw(poll_fileno poll_cb min_parallel max_parallel max_outstanding nreqs);
 
    require XSLoader;
-   XSLoader::load IO::AIO, $VERSION;
+   XSLoader::load ("IO::AIO", $VERSION);
 }
 
 =head1 FUNCTIONS
@@ -193,7 +191,7 @@
    my ($src, $dst, $cb) = @_;
 
    aio_rename $src, $dst, sub {
-      if ($_[0] && $! == Errno::EXDEV) {
+      if ($_[0] && $! == EXDEV) {
          aio_open $src, O_RDONLY, 0, sub {
             if (my $src_fh = $_[0]) {
                my @stat = stat $src_fh;