Home
last modified time | relevance | path

Searched refs:tempdir (Results 1 – 25 of 96) sorted by relevance

1234

/openbsd/src/gnu/usr.bin/perl/cpan/File-Temp/t/
Dtempfile.t60 my $tempdir = tempdir( $template ,
65 print "# TEMPDIR: $tempdir\n";
67 ok( (-d $tempdir), "Local tempdir exists" );
68 push(@dirs, File::Spec->rel2abs($tempdir));
70 my $tempdir2 = tempdir( TEMPLATE => "customXXXXX",
78 push(@dirs, File::Spec->rel2abs($tempdir));
82 DIR => $tempdir,
95 DIR => $tempdir,
105 DIR => $tempdir,
122 DIR => $tempdir,
[all …]
Dobject.t39 eval { File::Temp->tempdir };
81 my $tempdir = File::Temp::tempdir( $template ,
86 print "# TEMPDIR: $tempdir\n";
88 ok( (-d $tempdir), "Does $tempdir directory exist" );
89 push(@dirs, $tempdir);
93 DIR => $tempdir,
105 $fh = File::Temp->new( DIR => $tempdir, UNLINK => 0 );
114 DIR => $tempdir,
122 DIR => $tempdir,
/openbsd/src/gnu/usr.bin/perl/t/op/
Dunlink.t13 my $tempdir = tempfile;
15 mkdir $tempdir, 0700 or die "Can't mkdir '$tempdir': $!";
16 chdir $tempdir or die die "Can't chdir '$tempdir': $!";
38 rmdir $tempdir or die "Couldn't unlink tempdir '$tempdir': $!";
Ddump.t13 use File::Temp qw(tempdir);
35 my $tmp = tempdir(CLEANUP => 1);
/openbsd/src/gnu/usr.bin/perl/t/lib/
Dcommon.pl42 my $tempdir = tempfile;
44 mkdir $tempdir, 0700 or die "Can't mkdir '$tempdir': $!";
45 chdir $tempdir or die die "Can't chdir '$tempdir': $!";
51 rmtree($tempdir);
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/IPC/Driver/
DFiles.pm25 my $tmpdir = File::Temp::tempdir(
61 my $tempdir = $self->{+TEMPDIR};
73 return File::Spec->catfile($tempdir, $name);
156 my $tempdir = $self->{+TEMPDIR};
239 my $tempdir = $self->{+TEMPDIR};
241 opendir(my $dh, $tempdir) or $self->abort("could not open IPC temp dir ($tempdir)!");
389 my $tempdir = $self->{+TEMPDIR};
399 opendir(my $dh, $tempdir) or $self->abort("Could not open temp dir! ($tempdir)");
403 my $full = File::Spec->catfile($tempdir, $file);
420 print STDERR "# Not removing temp dir: $tempdir\n";
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/regression/
Dipc_files_abort_exit.t13 use File::Temp qw/tempdir/;
15 my $tempdir = tempdir(CLEANUP => 1);
17 open(my $stdout, '>', "$tempdir/stdout") or die "Could not open: $!";
18 open(my $stderr, '>', "$tempdir/stderr") or die "Could not open: $!";
28 my $tmpdir = test2_ipc()->tempdir;
42 open($stdout, '<', "$tempdir/stdout") or die "Could not open: $!";
43 open($stderr, '<', "$tempdir/stderr") or die "Could not open: $!";
/openbsd/src/gnu/usr.bin/perl/t/porting/
Dextrefs.t56 my $tempdir = tempfile();
58 mkdir $tempdir;
59 chdir $tempdir;
68 rmtree($tempdir);
121 rmtree($tempdir);
130 rmtree($tempdir);
/openbsd/src/gnu/usr.bin/texinfo/util/
Dtxitextest18 tempdir=/u/texinfo/@tests/testdir
27 --t*) shift; tempdir="$1";;
37 cd $tempdir || exit 1
Dtexindex.c100 char *tempdir; variable
315 tempdir = getenv ("TMPDIR"); in decode_command()
316 if (tempdir == NULL) in decode_command()
317 tempdir = getenv ("TEMP"); in decode_command()
318 if (tempdir == NULL) in decode_command()
319 tempdir = getenv ("TMP"); in decode_command()
320 if (tempdir == NULL) in decode_command()
321 tempdir = DEFAULT_TMPDIR; in decode_command()
323 tempdir = concat (tempdir, "/"); in decode_command()
402 tempbase = concat (tempdir, "txidxXXXXXX"); in maketempname()
/openbsd/src/gnu/usr.bin/perl/lib/DBM_Filter/t/
D01error.t10 use File::Temp qw(tempdir);
12 my $tempdir;
14 $tempdir = tempdir( "./DBMFXXXXXXXX", CLEANUP => 1);
15 push @INC, $tempdir;
16 chdir $tempdir or die "Failed to chdir to '$tempdir': $!";
/openbsd/src/gnu/usr.bin/perl/cpan/File-Temp/lib/File/
DTemp.pm1142 my $tempdir = tempdir( @$maybe_template, %$args);
1146 my $real_dir = Cwd::abs_path( $tempdir );
1149 return bless { DIRNAME => $tempdir,
1639 sub tempdir { subroutine
1707 my $tempdir;
1720 unless ((undef, $tempdir) = _gettemp($template,
1728 if ( $options{'CLEANUP'} && -d $tempdir) {
1729 _deferred_unlink(undef, $tempdir, 1);
1733 return $tempdir;
/openbsd/src/gnu/usr.bin/perl/cpan/HTTP-Tiny/t/
D110_mirror.t17 my $tempdir = tempdir( TMPDIR => 1, CLEANUP => 1 );
18 my $tempfile = File::Spec->catfile( $tempdir, "tempfile.txt" );
/openbsd/src/gnu/usr.bin/perl/dist/Tie-File/t/
D29a_upcopy.t26 my $tempdir = File::Temp::tempdir("Tie-File-XXXXXX",
121 my ($fh, $file) = File::Temp::tempfile("29A-XXXXX", DIR => $tempdir);
D29_downcopy.t24 my $tempdir = File::Temp::tempdir("Tie-File-XXXXXX",
267 my ($fh, $file) = File::Temp::tempfile("29-XXXXX", DIR => $tempdir);
/openbsd/src/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/
D106-process_typemaps.t16 my $tdir = tempdir( CLEANUP => 1 );
30 my $tdir = tempdir( CLEANUP => 1 );
/openbsd/src/gnu/usr.bin/perl/cpan/DB_File/t/
Ddb-threads.t9 use File::Temp qw(tempdir) ;
28 my $TEMPDIR = tempdir( CLEANUP => 1 );
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/IPC/Driver/
DFiles.t45 ok(-d $ipc->tempdir, "created temp dir");
52 my $hubfile = File::Spec->catfile($ipc->tempdir, "HUB" . ipc_separator . $hid);
73 opendir(my $dh, $ipc->tempdir) || die "Could not open tempdir: !?";
85 opendir($dh, $ipc->tempdir) || die "Could not open tempdir: !?";
91 ok(!-f $ipc->tempdir . '/' . $hid, "removed hub file");
97 my $tmpdir = $ipc->tempdir;
105 my $tmpdir = $ipc->tempdir;
151 $tmpdir = $ipc->tempdir;
181 …e($out->{STDERR}, qr/^# Not removing temp dir: \Q$tmpdir\E$/m, "Notice about not closing tempdir");
212 $tmpdir = $ipc->tempdir;
/openbsd/src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/Setup/
DXS.pm20 my $tempdir = tempdir(DIR => getcwd, CLEANUP => 1);
21 chdir $tempdir;
/openbsd/src/gnu/usr.bin/perl/ext/File-Glob/t/
Dthreads.t24 use File::Temp qw(tempdir);
28 my($dir) = tempdir(CLEANUP => 1)
Drt114984.t4 use File::Temp 'tempdir';
17 my $path = tempdir uc cleanup => 1;
/openbsd/src/regress/bin/ksh/
Dth284 $tempdir = mkdtemp("${temp_dir}/rtd.XXXXXXXX");
320 &scrub_dir($tempdir) if defined $tempdir;
321 rmdir($tempdir) if defined $tempdir;
399 return undef if !&scrub_dir($tempdir);
412 if (!chdir($tempdir)) {
413 print STDERR "$prog: couldn't cd to $tempdir - $!\n";
/openbsd/src/gnu/usr.bin/perl/dist/IO/t/
Dio_dir.t4 use File::Temp qw( tempdir );
20 my $DIR = tempdir( CLEANUP => 1 );
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta-YAML/t/
D21_yamlpm_compat.t35 my $tempdir = File::Temp->newdir("YTXXXXXX", TMPDIR => 1 );
36 my $filename = catfile($tempdir, 'compat');
/openbsd/src/gnu/usr.bin/perl/cpan/Win32API-File/t/
Dfile.t49 $tempdir = File::Spec->catdir($temp,$dir);
60 or die "# Can't create temp dir, $tempdir: $!\n";
61 print "# chdir $tempdir\n";
63 or die "# Can't cd to my dir, $tempdir: $!\n";

1234