diff options
author | Francois Pons <fpons@mandriva.com> | 2002-03-04 15:01:17 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2002-03-04 15:01:17 +0000 |
commit | 97751d08657a728d2d871b2751c27c478ad25d46 (patch) | |
tree | f71179a2ba19724bd1d28d11a1a232dffbccdf63 /perl-install | |
parent | 274fe6a8db532fab2feabe4ce62ef7cf58bd1c76 (diff) | |
download | drakx-backup-do-not-use-97751d08657a728d2d871b2751c27c478ad25d46.tar drakx-backup-do-not-use-97751d08657a728d2d871b2751c27c478ad25d46.tar.gz drakx-backup-do-not-use-97751d08657a728d2d871b2751c27c478ad25d46.tar.bz2 drakx-backup-do-not-use-97751d08657a728d2d871b2751c27c478ad25d46.tar.xz drakx-backup-do-not-use-97751d08657a728d2d871b2751c27c478ad25d46.zip |
fix scroll total to match reality.
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 3b8033e26..bd2ad52b4 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1304,7 +1304,7 @@ sub install($$$;$$) { foreach my $pkg (@$toInstall) { $packages{packageName($pkg)} = $pkg; $nb++; - $total += packageSize($pkg); + $total += to_int($pkg->[$SIZE_DEPS]); #- do not correct for upgrade! } log::l("pkgs::install $prefix"); |