Lines Matching refs:dir

484     my($dotdots, $cwd, @pst, @cst, $dir, @tst);
496         my ($dir, $file) = $start =~ m{^(.*)/(.+)$}
505             $link_target = $dir . '/' . $link_target
511 	return $dir ? abs_path($dir) . "/$file" : "/$file";
534 	    $dir = undef;
540 		unless (defined ($dir = readdir(PARENT)))
546 		$tst[0] = $pst[0]+1 unless (@tst = lstat("$dotdots/$dir"))
548 	    while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] ||
551 	$cwd = (defined $dir ? "$dir" : "" ) . "/$cwd" ;
553     } while (defined $dir);
578 	my ($vol, $dir, $file) = File::Spec->splitpath($path);
579 	return File::Spec->catfile($cwd, $path) unless length $dir;
585 	    $link_target = File::Spec->catpath($vol, $dir, $link_target)
591 	return $dir eq File::Spec->rootdir
592 	  ? File::Spec->catpath($vol, $dir, $file)
593 	  : fast_abs_path(File::Spec->catpath($vol, $dir, '')) . '/' . $file;