From f7b2b3d8722154cb00bc1760ed828517f2ac7861 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Thu, 7 Jan 2016 02:48:24 +0000
Subject: simple fix for removing temp files ...

git-svn-id: svn://tug.org/texlive/trunk@39300 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLDownload.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Master')

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);
-- 
cgit v1.2.3