summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm9
1 files changed, 2 insertions, 7 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index b82d747c2bb..de483db5803 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -97,8 +97,6 @@ use TeXLive::TLUtils qw(dirname mkdirhier member win32 info log debug ddebug
tlwarn basename download_file merge_into tldie);
use TeXLive::TLWinGoo;
-use File::Temp qw/tempfile/;
-
use Cwd 'abs_path';
my $_listdir;
@@ -307,7 +305,7 @@ sub from_file {
# on windows that doesn't work, so we close the fh immediately
# this creates a short loophole, but much better than before anyway
my $tlpdbfh;
- ($tlpdbfh, $tlpdbfile) = tempfile();
+ ($tlpdbfh, $tlpdbfile) = TeXLive::TLUtils::tl_tmpfile();
# same as above
close($tlpdbfh);
my $tlpdbfile_quote = $tlpdbfile;
@@ -319,7 +317,7 @@ sub from_file {
my $xz_succeeded = 0 ;
if (defined($::progs{'xzdec'})) {
# we first try the xz compressed file
- my ($xzfh, $xzfile) = tempfile();
+ my ($xzfh, $xzfile) = TeXLive::TLUtils::tl_tmpfile();
close($xzfh);
my $xzfile_quote = $xzfile;
if (win32()) {
@@ -434,10 +432,7 @@ sub from_file {
$self->{'verified'} = $is_verified;
- # remove the xzdec-ed tlpdb file from temp dir
- # THAT IS RACY!!! we should fix that in some better way with tempfile
close($retfh);
- unlink($tlpdbfile) if $tlpdbfile;
return($found);
}