summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2014-12-30 05:50:38 +0000
committerNorbert Preining <preining@logic.at>2014-12-30 05:50:38 +0000
commit4c6cfd8eadbb022bcd6060b825cdde83fa5a7c91 (patch)
treeabd1dfdbbf8325afb9191eb56569ed9ea1027ec8 /Master/tlpkg/TeXLive
parenta19609e62c824517594ffa202067dc274c70f2bf (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.pm7
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;