Lines Matching refs:File
1 package File::Temp; # git description: v0.2310-3-gc7148fe
147 use File::Spec 0.8;
149 use File::Path 2.06 qw/ rmtree /;
413 ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
417 my @dirs = File::Spec->splitdir($directories);
422 $parent = File::Spec->curdir;
426 $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]);
431 $parent = File::Spec->catdir(@dirs[0..$#dirs-1]);
434 $parent = File::Spec->catpath($volume, $parent, '');
442 ($volume, $directories, $file) = File::Spec->splitpath( $path );
445 $parent = File::Spec->catpath($volume,$directories,'');
448 $parent = File::Spec->curdir
471 if (File::Temp->safe_level == MEDIUM) {
477 } elsif (File::Temp->safe_level == HIGH) {
686 if ($info[4] > File::Temp->top_system_uid() && $info[4] != $>) {
689 File::Temp->top_system_uid());
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);
774 my @dirs = File::Spec->splitdir($directories);
779 my $dir = File::Spec->catpath($volume,
780 File::Spec->catdir(@dirs[0.. $#dirs - $pos]),
914 $cwd = Cwd::abs_path(File::Spec->curdir) if not defined $cwd;
930 my $updir = File::Spec->updir;
1440 $template = File::Spec->catfile($options{"DIR"}, $template);
1444 $template = File::Spec->catfile(_wrap_file_spec_tmpdir(), $template );
1452 $template = File::Spec->catfile($options{"DIR"}, TEMPXXX);
1456 $template = File::Spec->catfile(_wrap_file_spec_tmpdir(), TEMPXXX);
1528 return File::Spec->tmpdir unless $^O eq "MSWin32" && ${^TAINT};
1531 return $alt_tmpdir ? $alt_tmpdir : File::Spec->tmpdir;
1538 my $tmpdir = File::Spec->tmpdir;
1539 my $testpath = File::Spec->catdir( $tmpdir, $xxpath );
1548 my $local_app = File::Spec->catdir(
1551 $testpath = File::Spec->catdir( $local_app, $xxpath );
1673 my ($volume, $directories, undef) = File::Spec->splitpath( $template, 1);
1676 $template = (File::Spec->splitdir($directories))[-1];
1681 $template = File::Spec->catdir($options{"DIR"}, $template);
1686 $template = File::Spec->catdir(_wrap_file_spec_tmpdir(), $template);
1696 $template = File::Spec->catdir($options{"DIR"}, TEMPXXX);
1700 $template = File::Spec->catdir(_wrap_file_spec_tmpdir(), TEMPXXX);
1974 my $template = File::Spec->catfile($tmpdir, TEMPXXX);
2062 my $template = File::Spec->catfile($dir, $prefix);
2597 File::Temp::Dir;
2601 use File::Path qw/ rmtree /;
2604 '0+' => \&File::Temp::NUMIFY,
2637 $$ == $self->{LAUNCHPID} && !$File::Temp::KEEP_ALL) {
2643 eval { rmtree($self->{REALNAME}, $File::Temp::DEBUG, 0); };