--- IO-AIO/bin/treescan	2009/06/07 22:28:05	1.3
+++ IO-AIO/bin/treescan	2010/08/23 19:19:13	1.4
@@ -59,7 +59,9 @@
 for my $seed (@ARGV) {
    $seed =~ s/\/+$//;
    aio_lstat "$seed/.", sub {
-      if (-d _) {
+      if ($_[0]) {
+         print STDERR "$seed: $!\n";
+      } elsif (-d _) {
          scan $seed;
       } else {
          printfn "", $seed, "/";