diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-12-09 17:17:26 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-12-09 17:17:26 +0000 |
commit | d135d43d99dbe0717ddc74114c2f93007887a9f7 (patch) | |
tree | e0fa234bcef875df818dbaca2bb91c5c5faf866b /Master/tlpkg | |
parent | 0bdda2407e40851c976b5230f48eb1f7db9fdab7 (diff) |
TLUtils.pm: blocksize fixed
git-svn-id: svn://tug.org/texlive/trunk@5737 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-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"; |