--- IO-AIO/AIO.pm	2005/09/07 17:41:17	1.41
+++ IO-AIO/AIO.pm	2005/12/26 18:18:32	1.43
@@ -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',
@@ -317,7 +321,7 @@
                # if nlink == 2, we are finished
                # on non-posix-fs's, we rely on nlink < 2
                $ndirs = (stat _)[3] - 2
-                  or $cb->([], $entries);
+                  or return $cb->([], $entries);
             }
 
             # sort into likely dirs and likely nondirs