--- IO-AIO/bin/treescan	2011/09/27 01:43:03	1.6
+++ IO-AIO/bin/treescan	2011/09/27 12:10:29	1.7
@@ -52,6 +52,8 @@
       printfn "", [$path]   unless $opt_nodirs;
       printfn $path, $files unless $opt_nofiles;
 
+      IO::AIO::poll_cb;
+
       if ($opt_stat) {
          aio_wd $path, sub {
             my $wd = shift;
@@ -64,8 +66,8 @@
    };
 }
 
-IO::AIO::max_outstanding 64;
-IO::AIO::min_parallel 32;
+IO::AIO::max_outstanding 400;
+IO::AIO::min_parallel 20;
 
 for my $seed (@ARGV) {
    $seed =~ s/\/+$//;