Lines Matching refs:File
10 use File::Spec;
11 use File::Path;
12 use File::Temp;
13 use IO::File;
16 my $cwd = File::Spec->rel2abs(Cwd::cwd);
23 my $tmpdir = File::Temp::tempdir(
26 DIR => ($ENV{PERL_CORE} ? _original_cwd : File::Spec->tmpdir),
39 File::Path::mkpath($dir) or die "failed to create '$dir'";
40 my $abs_filename = File::Spec->catfile($dir, $rel_filename);
44 my $fh = IO::File->new(">$abs_filename") or die "Can't write '$abs_filename'\n";
57 File::Path::rmtree($tmp);