From 97751d08657a728d2d871b2751c27c478ad25d46 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 4 Mar 2002 15:01:17 +0000
Subject: fix scroll total to match reality.

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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");
-- 
cgit v1.2.1