From c2664ee56ffc9debf0f4a83681498dde33cced67 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Wed, 23 Dec 2015 03:04:45 +0000
Subject: TLDownload: remove temp files (email RK 2015-12-23)

git-svn-id: svn://tug.org/texlive/trunk@39178 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLDownload.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Master/tlpkg')

diff --git a/Master/tlpkg/TeXLive/TLDownload.pm b/Master/tlpkg/TeXLive/TLDownload.pm
index b431883d0f8..43241966cc1 100644
--- a/Master/tlpkg/TeXLive/TLDownload.pm
+++ b/Master/tlpkg/TeXLive/TLDownload.pm
@@ -118,9 +118,11 @@ sub get_file {
   return if $self->disabled;
   #
   my $realout = $out;
-  my ($outfh, $outfn);
+  my $outfh;
+  our $outfn;
   if ($out eq "|") {
     ($outfh, $outfn) = tempfile();
+    END { unlink $outfn if (-f $outfn) ; }
     $realout = $outfn;
   }
   my $response = $self->{'ua'}->get($url, ':content_file' => $realout);
-- 
cgit v1.2.3