f6b06bc7f395acceb33e50bd2e58926fc154c698
7 open FIND
, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* |";
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"}) {