diff options
author | Norbert Preining <preining@logic.at> | 2012-05-23 05:37:03 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2012-05-23 05:37:03 +0000 |
commit | 85722e162ab8bc579a5d6e199ea7d70ebc5d2bec (patch) | |
tree | 7b03e3522be968ee0cd94faf52cb97ccf37b4f87 /Master/texmf/scripts | |
parent | ed64153cb6d4b37b71ccc90c0d831943323ddeed (diff) |
allow computation of sizes of packages based on a set of platforms
git-svn-id: svn://tug.org/texlive/trunk@26588 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 181ff6702c4..a8d31c8f005 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -2564,11 +2564,12 @@ sub action_update { # sizes_of_packages returns the sizes of *all* packages if nothing # is passed over, so if @new and @updated both are empty we will # get something wrong back, namely the total size of all packages + # the third argument is undef to compute *all* platforms my %sizes; if (@alltodo) { %sizes = %{$remotetlpdb->sizes_of_packages( $localtlpdb->option("install_srcfiles"), - $localtlpdb->option("install_docfiles"), @alltodo)}; + $localtlpdb->option("install_docfiles"), undef, @alltodo)}; } else { $sizes{'__TOTAL__'} = 0; } @@ -3319,9 +3320,10 @@ sub action_install { return if (!@todo); my $currnr = 1; + # undef here is a ref to array of platforms, if undef all are used my %sizes = %{$remotetlpdb->sizes_of_packages( $localtlpdb->option("install_srcfiles"), - $localtlpdb->option("install_docfiles"), @todo)}; + $localtlpdb->option("install_docfiles"), undef, @todo)}; defined($sizes{'__TOTAL__'}) || ($sizes{'__TOTAL__'} = 0); my $totalsize = $sizes{'__TOTAL__'}; my $donesize = 0; |