Lines Matching refs:path
12 my $path = shift;
16 $path .= "/" if( -d $path);
17 open FIND, "find $path -type f -and -not -path \\*/.svn\\* -and -not -path \\*CVS\\* $options 2>/dev/null |";
37 my $path = shift @ARGV;
38 if ($path =~ /^-x/) {
40 $options{"findopts"} .= " -and -not -path '".$str."'"
41 } elsif ($path =~ /^-f/) {
43 } elsif ($path =~ /^-n/) {
45 $options{$path} = $arg;
46 } elsif ($path =~ /^-/) {
47 $options{$path} = 1;
49 my ($tmp, $fname) = get_ts($path, $options{"findopts"});
54 $n = $path;