Lines Matching refs:path
401 my $path = _replace_XX($template, $options{"suffixlen"});
413 ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
442 ($volume, $directories, $file) = File::Spec->splitpath( $path );
510 $fh = VMS::Stdio::vmssysopen($path, $OPENFLAGS, $perms, 'fop=dlt');
517 $open_success = sysopen($fh, $path, $flags, $perms);
522 chmod($perms, $path) unless $has_perms;
525 return ($fh, $path);
532 ${$options{ErrStr}} = "Could not create temp file $path: $!";
542 if (mkdir( $path, 0700)) {
544 chmod(0700, $path);
546 return undef, $path;
552 ${$options{ErrStr}} = "Could not create directory $path: $!";
565 return (undef, $path) unless -e $path;
582 my $original = $path;
589 $path = _replace_XX($template, $options{"suffixlen"});
593 } until ($path ne $original || $counter > $MAX_GUESS);
625 my ($path, $ignore) = @_;
634 substr($path, 0, - $ignore) =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
636 $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
638 return $path;
671 my $path = shift;
675 my @info = stat($path);
688 Carp::cluck(sprintf "uid=$info[4] topuid=%s euid=$> path='$path'",
704 unless (-d $path) {
705 $$err_ref = "Path ($path) is not a directory"
710 unless (-k $path) {
711 $$err_ref = "Sticky bit not set on $path when dir is group|world writable"
735 my $path = shift;
736 print "_is_verysafe testing $path\n" if $DEBUG;
752 return _is_safe($path,$err_ref) if POSIX::sysconf( $chown_restricted );
762 unless (File::Spec->file_name_is_absolute($path)) {
763 $path = File::Spec->rel2abs($path);
767 my ($volume, $directories, undef) = File::Spec->splitpath( $path, 1);
1089 my ($fh, $path) = tempfile( @$maybe_template, %$args );
1091 print "Tmp: $fh - $path\n" if $DEBUG;
1094 ${*$fh} = $path;
1097 $FILES_CREATED_BY_OBJECT{$$}{$path} = 1;
1478 my ($fh, $path, $errstr);
1480 unless (($fh, $path) = _gettemp($template,
1496 _deferred_unlink($fh, $path, 0) if $options{"UNLINK"};
1502 return ($fh, $path);
1504 return (undef, $path);
1511 unlink0($fh, $path) or croak "Error unlinking file $path using unlink0";
1774 my ($fh, $path, $errstr);
1776 unless (($fh, $path) = _gettemp($template,
1784 return ($fh, $path);
1821 my ($fh, $path, $errstr);
1823 unless (($fh, $path) = _gettemp($template,
1831 return ($fh, $path);
2134 my ($fh, $path) = @_;
2136 cmpstat($fh, $path) or return 0;
2146 croak "unlink0: $path has become a directory!" if -d $path;
2147 unlink($path) or return 0;
2163 _deferred_unlink($fh, $path, 0);
2200 my ($fh, $path) = @_;
2220 my @path = stat $path;
2222 unless (@path) {
2223 carp "unlink0: $path is gone already" if $^W;
2228 unless (-f $path) {
2229 confess "panic: $path is no longer a file: SB=@fh";
2252 print "Comparing: $_ : $fh[$_] and $path[$_]\n" if $DEBUG;
2256 unless ($fh[$_] eq $path[$_]) {
2294 my ($fh, $path) = @_;
2296 cmpstat($fh, $path) or return 0;
2302 _force_writable( $path );
2308 return unlink($path);