Lines Matching refs:path

371     my(@path, $path);
394 	unshift(@path, $direntry);
396     $path = '/' . join('/', @path);
397     if ($^O eq 'apollo') { $path = "/".$path; }
400     $path =~ /^(.*)\z/s		# untaint
405     $path;
564     my $path = @_ ? shift : ($Curdir ||= File::Spec->curdir);
568     ($path) = $path =~ /(.*)/;
571     unless (-e $path) {
572  	_croak("$path: No such file or directory");
578 	my ($vol, $dir, $file) = File::Spec->splitpath($path);
579 	return File::Spec->catfile($cwd, $path) unless length $dir;
581 	if (-l $path) {
582 	    my $link_target = readlink($path);
583 	    die "Can't resolve link $path: $!" unless defined $link_target;
596     if (!CORE::chdir($path)) {
597  	_croak("Cannot chdir to $path: $!");
629     my $path = VMS::Filespec::pathify($_[0]);
630     $path = $_[0] unless defined $path;
632     return VMS::Filespec::rmsexpand($path);
674     my $path = @_ ? shift : '.';
677     defined( open(REALPATH, '-|') || exec '/usr/bin/fullpath', '-t', $path ) or