diff options
| -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; |