--- IO-AIO/README 2005/08/30 15:45:10 1.13 +++ IO-AIO/README 2005/12/26 18:31:12 1.14 @@ -15,6 +15,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',