9 -d "$path" and $path .= "/*";
10 open FIND, "find $path -not -path \\*.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |";
26 (@ARGV > 0) or push @ARGV, ".";
31 my $path = shift @ARGV;
33 my $str = shift @ARGV;
34 $options{"-x"} .= " -and -not -path \\*".$str."\\*"
35 } elsif ($path =~ /^-/) {
38 my ($tmp, $fname) = get_ts($path, $options{"-x"});
52 } elsif ($options{"-t"}) {