Lines Matching refs:path
34 my $path = $ENV{'SOLARVERSION'} . '/' . $ENV{'INPATH'} . '/xml' . "$ENV{'UPDMINOREXT'}/";
39 print "Checking:$path\n";
41 &RecurseDirs($path);
57 my ($path) = @_;
60 opendir (DIRECTORY, $path) or
61 die "Can't read $path\n";
66 if (-d "$path$file/") {
67 &RecurseDirs("$path$file/");
69 &check($path, $file);
78 my $path = shift;
80 print "$path$file\n" if ((-e "$path$file") && $is_debug);
82 if ( -z "$path$file" ) {
83 print "Error: $path$file 0 Bytes!\n";
87 open( FH, "<$path$file" );
91 print "Error: NULL characters detected in $path$file\n";
103 my $path = shift;
106 opendir (DIRECTORY, $path) or
107 die "Can't read $path\n";
112 $commandargs="$path$file";