summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLDownload.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2015-12-24 07:22:46 +0000
committerNorbert Preining <preining@logic.at>2015-12-24 07:22:46 +0000
commit97556fc24652d783bfd585b549eaef116bb71580 (patch)
tree1f86d20c205d83bdc518275395dc391732075011 /Master/tlpkg/TeXLive/TLDownload.pm
parentd65be02cb839c25c4d948cb815a0b537e962ddcb (diff)
TLDownload: make sure we remove downloaded md5 files
git-svn-id: svn://tug.org/texlive/trunk@39189 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLDownload.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLDownload.pm1
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);