diff options
| author | Norbert Preining <preining@logic.at> | 2015-12-23 03:04:45 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2015-12-23 03:04:45 +0000 |
| commit | c2664ee56ffc9debf0f4a83681498dde33cced67 (patch) | |
| tree | 02b54d46e4e9b0ba60b31ccb86dafdc67c143bba /Master/tlpkg/TeXLive/TLDownload.pm | |
| parent | 1150bfeabcf9fd830248a8649fe0c8f861a55186 (diff) | |
TLDownload: remove temp files (email RK 2015-12-23)
git-svn-id: svn://tug.org/texlive/trunk@39178 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLDownload.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLDownload.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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); |