From ca14a502d413a9a80a035b7fe29541fcfe0da637 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 4 Oct 1999 18:29:04 +0000
Subject: *** empty log message ***

---
 perl-install/install_any.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 4bb4e9bc4..56e5be526 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -99,8 +99,8 @@ sub getAvailableSpace {
     do { $_->{mntpoint} eq '/'    and return $_->{size} * 512 } foreach @{$o->{fstab}};
 
     if ($::testing) {
-	log::l("taking 200MB for testing");
-	return 200 << 20;
+	log::l("taking 2000MB for testing");
+	return 2000 << 20;
     }
     die "missing root partition";
 }
@@ -132,13 +132,13 @@ sub setPackages($$) {
     }
 
     pkgs::setShowFromCompss($o->{compss}, $o->{installClass}, $o->{lang});
-    ($o->{packages_}{ind}, $o->{packages_}{select_level}) = pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang});
+    ($o->{packages_}{ind}, $o->{packages_}{select_level}) = pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang}, $o->{isUpgrade});
 }
 
-sub findPackagesToUpgrade($) {
+sub selectPackagesToUpgrade($) {
     my ($o) = @_;
 
-    pkgs::findPackagesToUpgrade($o->{packages}, $o->{prefix});
+    pkgs::selectPackagesToUpgrade($o->{packages}, $o->{prefix});
 }
 
 sub addToBeDone(&$) {
-- 
cgit v1.2.1