diff options
| -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); |