Lines Matching refs:dirname

210 	my $dirname = $filename;
213 	$dirname =~ s,%,%%,g;
216 	$dirname =~ s,=,%=,g;
219 	$dirname =~ s,/,=,g;
225 	$dirname = $object_dir . ':' . $dirname;
227 	return $dirname;
236 	my ($dirname) = @_;
239 	if (! -f "$dirname/info.path") {
240 		exiter(nofile("$dirname/info.path", $!));
243 		open($info_path_fh, "<$dirname/info.path") ||
244 		    exiter(nofile("$dirname/info.path", $!));
272 	my $dirname;
279 		$dirname = readdir($next_dir_name_dh);
281 		if (! defined($dirname)) {
286 		} elsif ($dirname =~ m,^:,) {
288 			return "$object_directory/$dirname";
1010 			$tmp2 = dirname($tmp1) . "/" . $tmp2;
1606 		$dir0 = dirname($pattern);