diff options
author | Norbert Preining <preining@logic.at> | 2014-12-30 05:50:38 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2014-12-30 05:50:38 +0000 |
commit | 4c6cfd8eadbb022bcd6060b825cdde83fa5a7c91 (patch) | |
tree | abd1dfdbbf8325afb9191eb56569ed9ea1027ec8 /Master/tlpkg/TeXLive | |
parent | a19609e62c824517594ffa202067dc274c70f2bf (diff) |
fix computation of sizes if *all* archs are installed
git-svn-id: svn://tug.org/texlive/trunk@35926 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 73d0ea46a48..a3d04b025eb 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -1294,11 +1294,12 @@ sub sizes_of_packages { my ($self, $opt_src, $opt_doc, $arch_list_ref, @packs) = @_; @packs || ( @packs = $self->list_packages() ); my @archs; - if (defined($arch_list_ref)) { + if ($arch_list_ref) { @archs = @$arch_list_ref; + } else { + # if nothing is passed on, we use all available archs + @archs = $self->available_architectures; } - # if nothing is passed on, then we keep @archs undefined, which means - # use all architectures my %tlpsizes; my %tlpobjs; my $totalsize; |