Lines Matching refs:dirname

212 	my $dirname = $filename;
215 	$dirname =~ s,%,%%,g;
218 	$dirname =~ s,=,%=,g;
221 	$dirname =~ s,/,=,g;
227 	$dirname = $object_dir . ':' . $dirname;
229 	return $dirname;
238 	my ($dirname) = @_;
241 	if (! -f "$dirname/info.path") {
242 		exiter(nofile("$dirname/info.path", $!));
245 		open($info_path_fh, "<$dirname/info.path") ||
246 		    exiter(nofile("$dirname/info.path", $!));
274 	my $dirname;
281 		$dirname = readdir($next_dir_name_dh);
283 		if (! defined($dirname)) {
288 		} elsif ($dirname =~ m,^:,) {
290 			return "$object_directory/$dirname";
1012 			$tmp2 = dirname($tmp1) . "/" . $tmp2;
1608 		$dir0 = dirname($pattern);