--- IO-AIO/AIO.pm 2005/07/10 22:19:48 1.6 +++ IO-AIO/AIO.pm 2005/07/10 22:20:25 1.8 @@ -14,12 +14,12 @@ aio_unlink "/tmp/file", sub { }; aio_read $fh, 30000, 1024, $buffer, 0, sub { - $_[0] >= 0 or die "read error: $!"; + $_[0] > 0 or die "read error: $!"; }; # Event Event->io (fd => IO::AIO::poll_fileno, - poll => 'r', async => 1, + poll => 'r', cb => \&IO::AIO::poll_cb); # Glib/Gtk2