--- IO-AIO/bin/treescan	2012/12/13 07:34:14	1.15
+++ IO-AIO/bin/treescan	2014/01/25 00:15:52	1.16
@@ -67,7 +67,7 @@
    ++$n_dirs;
    aio_scandir $path, 8, sub {
       my ($dirs, $files) = @_
-         or warn "$path: $!\n";
+         or return warn "$path: $!\n";
 
       printfn "", [$path]   unless $opt_nodirs;
       printfn $path, $files unless $opt_nofiles;