--- IO-AIO/AIO.pm	2005/07/20 21:55:27	1.22
+++ IO-AIO/AIO.pm	2005/07/31 21:21:12	1.25
@@ -58,12 +58,14 @@
 
 package IO::AIO;
 
+no warnings;
+
 use base 'Exporter';
 
 use Fcntl ();
 
 BEGIN {
-   $VERSION = 0.9;
+   $VERSION = 1.1;
 
    @EXPORT = qw(aio_read aio_write aio_open aio_close aio_stat aio_lstat aio_unlink
                 aio_fsync aio_fdatasync aio_readahead);
@@ -85,7 +87,8 @@
 perl, which usually delivers "false") as it's sole argument when the given
 syscall has been executed asynchronously.
 
-All functions that expect a filehandle will also accept a file descriptor.
+All functions expecting a filehandle keep a copy of the filehandle
+internally until the request has finished.
 
 The filenames you pass to these routines I<must> be absolute. The reason
 for this is that at the time the request is being executed, the current
@@ -312,12 +315,16 @@
 sub _fd2fh {
    return undef if $_[0] < 0;
 
-   # try to be perl5.6-compatible
-   local *AIO_FH;
-   open AIO_FH, "+<&=$_[0]"
+   # try to generate nice filehandles
+   my $sym = "IO::AIO::fd#$_[0]";
+   local *$sym;
+
+   open *$sym, "+<&$_[0]"      # usually under any unix
+      or open *$sym, "<&$_[0]" # cygwin needs this
+      or open *$sym, ">&$_[0]" # cygwin needs this
       or return undef;
 
-   *AIO_FH
+   *$sym
 }
 
 min_parallel 4;