summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLDownload.pm4
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);