texlive[47832] Master/tlpkg/TeXLive/TLUtils.pm: fix for installer bug

[commits+preining at tug.org]

Revision: 47832
          http://tug.org/svn/texlive?view=revision&revision=47832
Author:   preining
Date:     2018-05-25 04:27:20 +0200 (Fri, 25 May 2018)
Log Message:
-----------
fix for installer bug

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2018-05-25 00:23:36 UTC (rev 47831)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2018-05-25 02:27:20 UTC (rev 47832)
@@ -2649,7 +2649,8 @@
     $dest =~ s!/!\\!g;
   }
   
-  my $downloader = $ENV{"TL_DOWNLOAD_PROGRAM"} || $FallbackDownloaderProgram{$::progs{'downloader'}};
+  my $downloadername = $ENV{"TL_DOWNLOAD_PROGRAM"} || $FallbackDownloaderProgram{$::progs{'downloader'}};
+  my $downloader = $::progs{$downloadername};
   my $downloaderargs;
   my @downloaderargs;
   if ($ENV{"TL_DOWNLOAD_ARGS"}) {