7 open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* 2>/dev/null |";
12 $ts = $stat[9] if ($stat[9] > $ts);
18 (@ARGV > 0) or push @ARGV, ".";
22 foreach my $path (@ARGV) {
26 my $tmp = get_ts($path);
36 } elsif ($options{"-t"}) {