Lines Matching refs:dirpath

499 	my $dirpath = "$working_dir/$dirname";
502 	if (-e $dirpath) {
511 	if (! mkdir($dirpath, 0777)) {
512 		exiter(nocreatedir($dirpath, $!));
519 	open($path_fh, ">$dirpath/info.path") ||
520 	    exiter(nofile("$dirpath/info.path", $!));
529 	open($file_fh, ">$dirpath/info.file") ||
530 	    exiter(nofile("$dirpath/info.file", $!));
539 	open($dump_fh, ">$dirpath/info.dump") ||
540 	    exiter(nofile("$dirpath/info.dump", $!));
554 	open($arch_fh, ">$dirpath/info.arch") ||
555 	    exiter(nofile("$dirpath/info.arch", $!));