summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-01-07 02:48:24 +0000
committerNorbert Preining <preining@logic.at>2016-01-07 02:48:24 +0000
commitf7b2b3d8722154cb00bc1760ed828517f2ac7861 (patch)
treef3b9d8aca7ce3cb5b7eaf48b75e992e20632c44a
parent25fae57d66fec6cdd572d23aa7a0dbbd024d60e7 (diff)
simple fix for removing temp files ...
git-svn-id: svn://tug.org/texlive/trunk@39300 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLDownload.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLDownload.pm b/Master/tlpkg/TeXLive/TLDownload.pm
index 64a9a3e5b7d..2ae1ebe5102 100644
--- a/Master/tlpkg/TeXLive/TLDownload.pm
+++ b/Master/tlpkg/TeXLive/TLDownload.pm
@@ -120,8 +120,7 @@ sub get_file {
my $realout = $out;
my ($outfh, $outfn);
if ($out eq "|") {
- ($outfh, $outfn) = tempfile();
- eval "END { unlink(\"$outfn\") if (-r \"$outfn\") ; }";
+ ($outfh, $outfn) = tempfile(UNLINK => 1);
$realout = $outfn;
}
my $response = $self->{'ua'}->get($url, ':content_file' => $realout);