Lines Matching refs:dir

154         $dir = $1;
155         push (@rmdirs, $dir);
156         -d "$workpath/$dir"
157 	   || mkdir ("$workpath/$dir", 0777)
158            || &error ("Couldn't mkdir $workpath/$dir: $!\n");
169     foreach $dir (@dirs)
171       next if ($dir =~ /^(\..*|CVS|RCS)$/ || ! -d "$scriptpath/$dir");
172       push (@rmdirs, $dir);
173       mkdir ("$workpath/$dir", 0777)
174            || &error ("Couldn't mkdir $workpath/$dir: $!\n");
175       opendir (SCRIPTDIR, "$scriptpath/$dir")
176 	  || &error ("Couldn't opendir $scriptpath/$dir: $!\n");
182 	push (@TESTS, "$dir/$test");
196   foreach $dir (@rmdirs)
198     rmdir ("$workpath/$dir");