diff options
author | Karl Berry <karl@freefriends.org> | 2017-04-28 23:12:11 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-04-28 23:12:11 +0000 |
commit | 641b36be01441464c489c3d0b15751f14ac78971 (patch) | |
tree | f3240a4f3ed0643bbe27f4a6ccfd762758d37e0c /Master/tlpkg/bin/tlpsizes | |
parent | ea595089250526678b91ba53685f0448a7cb7387 (diff) |
doc,sync,binary locations
git-svn-id: svn://tug.org/texlive/trunk@44109 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpsizes')
-rwxr-xr-x | Master/tlpkg/bin/tlpsizes | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/bin/tlpsizes b/Master/tlpkg/bin/tlpsizes index 795e935cdd0..2be99ace130 100755 --- a/Master/tlpkg/bin/tlpsizes +++ b/Master/tlpkg/bin/tlpsizes @@ -53,9 +53,8 @@ sub main { my @pkgs = $tlpdb->expand_dependencies ("-no-collections", $tlpdb, $name); # get sizes of those packages. - # 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); + # args say: include src, include doc, just one platform. + my $pkg_sizes = $tlpdb->sizes_of_packages (1, 1, ["x86_64-linux"], @pkgs); $c_size{$name} = $pkg_sizes->{__TOTAL__}; delete $pkg_sizes->{"__TOTAL__"}; # don't need that any more @@ -68,8 +67,9 @@ sub main { for my $c (sort { $c_size{$b} <=> $c_size{$a} } keys %c_size) { - printf "%4d %-${longest_name}s %s\n", - $c_size{$c}/1024/1024, $c, $c_pkgs{$c}; + my $count = ($c_pkgs{$c} =~ tr/ / /); + printf "%4d %-${longest_name}s %4s%s\n", + $c_size{$c}/1024/1024, $c, $count, $c_pkgs{$c}; } return 0; |