From d65be02cb839c25c4d948cb815a0b537e962ddcb Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 24 Dec 2015 02:43:34 +0000 Subject: Revert "TLDownload: remove temp files (email RK 2015-12-23)" This reverts svn39178 git-svn-id: svn://tug.org/texlive/trunk@39188 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLDownload.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLDownload.pm') diff --git a/Master/tlpkg/TeXLive/TLDownload.pm b/Master/tlpkg/TeXLive/TLDownload.pm index 43241966cc1..b431883d0f8 100644 --- a/Master/tlpkg/TeXLive/TLDownload.pm +++ b/Master/tlpkg/TeXLive/TLDownload.pm @@ -118,11 +118,9 @@ sub get_file { return if $self->disabled; # my $realout = $out; - my $outfh; - our $outfn; + my ($outfh, $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