diff options
author | Norbert Preining <preining@logic.at> | 2016-05-14 00:31:00 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-05-14 00:31:00 +0000 |
commit | aaa3d6879a54492a4e73a1c485f5fc63aa1ea049 (patch) | |
tree | bb5132a1015f63a8e04a4ea127c1eea413785e7a /Master/tlpkg/TeXLive/TLDownload.pm | |
parent | ecc694f7532882098b662f8ccda8c810dc1ce53c (diff) |
tempdir rework: use consistently tl_tmpdir/tmpfile for debugging
git-svn-id: svn://tug.org/texlive/trunk@41104 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLDownload.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLDownload.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLDownload.pm b/Master/tlpkg/TeXLive/TLDownload.pm index d4ea57bf45d..61ea332bc92 100644 --- a/Master/tlpkg/TeXLive/TLDownload.pm +++ b/Master/tlpkg/TeXLive/TLDownload.pm @@ -8,7 +8,6 @@ package TeXLive::TLDownload; use TeXLive::TLUtils; use TeXLive::TLConfig; -use File::Temp qw/tempfile/; my $svnrev = '$Revision$'; my $_modulerevision; @@ -120,7 +119,7 @@ sub get_file { my $realout = $out; my ($outfh, $outfn); if ($out eq "|") { - ($outfh, $outfn) = tempfile(UNLINK => 1); + ($outfh, $outfn) = tl_tmpfile(); $realout = $outfn; } my $response = $self->{'ua'}->get($url, ':content_file' => $realout); |