diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpsizes')
-rwxr-xr-x | Master/tlpkg/bin/tlpsizes | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/bin/tlpsizes b/Master/tlpkg/bin/tlpsizes index 1ee7f83a8ae..b198168c01d 100755 --- a/Master/tlpkg/bin/tlpsizes +++ b/Master/tlpkg/bin/tlpsizes @@ -53,12 +53,14 @@ sub main { my @pkgs = $tlpdb->expand_dependencies ("-no-collections", $tlpdb, $name); # get sizes of those packages. - # args say: include src, include doc, (no) platforms, just our pkgs. - my $pkg_sizes = $tlpdb->sizes_of_packages (1, 1, undef, @pkgs); + # args say: include src, include doc, just i386-linux for a + # mid-sized sample, just our pkgs. + my $pkg_sizes = $tlpdb->sizes_of_packages (1, 1, ["i386-linux"], @pkgs); $c_size{$name} = $pkg_sizes->{__TOTAL__}; - delete $pkg_sizes->{"__TOTAL__"}; # don't need that any more - delete $pkg_sizes->{$name}; # always includes itself, with zero size + delete $pkg_sizes->{"__TOTAL__"}; # don't need that any more + delete $pkg_sizes->{"hyph-utf8"} if $name =~ m/^collection-lang/; + delete $pkg_sizes->{$name}; # always includes itself, with zero size $c_pkgs{$name} = &pkgs_by_size (%$pkg_sizes); |