[ViewVC] Diff of: cvs/IO-AIO/bin/treescan

Comparing IO-AIO/bin/treescan (file contents):
Revision 1.1 by root, Mon Sep 10 11:24:20 2007 UTC vs.
Revision 1.2 by root, Wed Apr 9 18:18:41 2008 UTC

 #!/opt/bin/perl
 # inspired by treescan by Jamie Lokier <jamie@imbolc.ucc.ie>
 # about 40% faster than the original version (on my fs and raid :)
+use strict;
 use Getopt::Long;
 use IO::AIO;
 Getopt::Long::Configure ("bundling", "no_ignore_case", "require_order");
 ;
 @ARGV = "." unless @ARGV;
 sub printfn {
-   my ($path, $files, $suffix) = @_;
+   my ($prefix, $files, $suffix) = @_;
    if ($opt_print0) {
-      print map "$path/$_$suffix\0", @$files;
+      print map "$prefix$_$suffix\0", @$files;
    } elsif (!$opt_silent) {
-      print map "$path/$_$suffix\n", @$files;
+      print map "$prefix$_$suffix\n", @$files;
    }
 }
 sub scan {
    my ($path) = @_;
+   $path .= "/";
+   aioreq_pri -1;
    aio_scandir $path, 8, sub {
       my ($dirs, $files) = @_;
+      printfn "", [$path];
+      printfn $path, $files;
       if ($opt_stat) {
-         aio_stat "$path/$_" for @$files;
+         aio_lstat "$path$_" for @$files;
       }
-      for (@$dirs) {
+      &scan ("$path$_") for @$dirs;
-         printfn $path, $dirs, "/";
-         &scan ("$path/$_")
-      }
-      printfn $path, $files;
    };
 }
 IO::AIO::max_outstanding 64;
 IO::AIO::min_parallel 32;
 for my $seed (@ARGV) {
    $seed =~ s/\/+$//;
    aio_lstat "$seed/.", sub {
+      if (-d _) {
-      scan $seed if -d _;
+         scan $seed;
+      } else {
+         printfn "", $seed, "/";
+      }
    };
 }
 IO::AIO::flush;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines