--- IO-AIO/AIO.pm	2005/09/07 17:41:17	1.41
+++ IO-AIO/AIO.pm	2005/12/26 18:15:23	1.42
@@ -17,6 +17,10 @@
     $_[0] > 0 or die "read error: $!";
  };
 
+ # AnyEvent
+ open my $fh, "<&=" . IO::AIO::poll_fileno or die "$!";
+ my $w = AnyEvent->io (fh => $fh, poll => 'r', cb => sub { IO::AIO::poll_cb });
+
  # Event
  Event->io (fd => IO::AIO::poll_fileno,
             poll => 'r',