Lines Matching refs:path
33 my $path = "../" . $ENV{'INPATH'} . "/";
36 print "Checking:$path\n";
38 &RecurseDirs($path);
53 my ($path) = @_;
56 opendir (DIRECTORY, $path) or
57 die "Error: Can't read $path\n";
62 if (-d "$path$file/") {
63 &RecurseDirs("$path$file/");
65 &check($path, $file);
74 my $path = shift;
76 print "$path$file\n" if ((-e "$path$file") && $is_debug);
78 … || ($file =~ /.+\.obj/ && $ENV{GUI} eq 'UNX') || ($path =~ /.+etc/) || ($path =~ /.+logs/) || ($p…
79 if ( -z "$path$file" ) {
80 print "Error: $path$file 0 Bytes!\n";