Lines Matching refs:dirpath

501 	my $dirpath = "$working_dir/$dirname";
504 	if (-e $dirpath) {
513 	if (! mkdir($dirpath, 0777)) {
514 		exiter(nocreatedir($dirpath, $!));
521 	open($path_fh, ">$dirpath/info.path") ||
522 	    exiter(nofile("$dirpath/info.path", $!));
531 	open($file_fh, ">$dirpath/info.file") ||
532 	    exiter(nofile("$dirpath/info.file", $!));
541 	open($dump_fh, ">$dirpath/info.dump") ||
542 	    exiter(nofile("$dirpath/info.dump", $!));
556 	open($arch_fh, ">$dirpath/info.arch") ||
557 	    exiter(nofile("$dirpath/info.arch", $!));