Lines Matching refs:tempdir
1028 my $tempdir = $ENV{'TEMP'};
1029 return unless defined $tempdir and length $tempdir
1030 and -e $tempdir and -d _ and -w _;
1033 "Considering whether any old files of mine in $tempdir need unlinking.\n"
1036 opendir(TMPDIR, $tempdir) || return;
1051 push @to_unlink, "$tempdir/$filespec";
1055 printf " $tempdir/$filespec is too recent (after %x)\n", $limit;
1059 print " $tempdir/$filespec doesn't look like a perldoc temp file.\n";
1065 $tempdir
1075 my $tempdir = $ENV{'TEMP'};
1076 return unless defined $tempdir and length $tempdir
1077 and -e $tempdir and -d _ and -w _;
1084 $tempdir,