diff options
| author | Norbert Preining <preining@logic.at> | 2015-12-24 07:22:46 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2015-12-24 07:22:46 +0000 |
| commit | 97556fc24652d783bfd585b549eaef116bb71580 (patch) | |
| tree | 1f86d20c205d83bdc518275395dc391732075011 | |
| parent | d65be02cb839c25c4d948cb815a0b537e962ddcb (diff) | |
TLDownload: make sure we remove downloaded md5 files
git-svn-id: svn://tug.org/texlive/trunk@39189 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLDownload.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLDownload.pm b/Master/tlpkg/TeXLive/TLDownload.pm index b431883d0f8..64a9a3e5b7d 100644 --- a/Master/tlpkg/TeXLive/TLDownload.pm +++ b/Master/tlpkg/TeXLive/TLDownload.pm @@ -121,6 +121,7 @@ sub get_file { my ($outfh, $outfn); if ($out eq "|") { ($outfh, $outfn) = tempfile(); + eval "END { unlink(\"$outfn\") if (-r \"$outfn\") ; }"; $realout = $outfn; } my $response = $self->{'ua'}->get($url, ':content_file' => $realout); |