diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index e2e5341da85..03ed19c1e9c 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -573,11 +573,10 @@ sub install_package { my ($what, $filelistref, $target, $platform) = @_; my $buffer; my $offset; - if ($::_media_ eq 'NET') { - my $blocksize=4096; - } else { - my $blocksize=2048; - } + my $blocksize=2048; + + $blocksize=4096 if ($::_media_ eq 'NET'); + my @filelist = @$filelistref; my $bindir = "$::installerdir/tlpkg/bin"; |