diff options
author | Francois Pons <fpons@mandriva.com> | 1999-10-04 18:29:04 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 1999-10-04 18:29:04 +0000 |
commit | ca14a502d413a9a80a035b7fe29541fcfe0da637 (patch) | |
tree | 56f203afabbe12eefd6646acc8a554eec53f36d6 /perl-install/install_any.pm | |
parent | 2346c7832c06ed35de1af6f9d523941fa96b4259 (diff) | |
download | drakx-ca14a502d413a9a80a035b7fe29541fcfe0da637.tar drakx-ca14a502d413a9a80a035b7fe29541fcfe0da637.tar.gz drakx-ca14a502d413a9a80a035b7fe29541fcfe0da637.tar.bz2 drakx-ca14a502d413a9a80a035b7fe29541fcfe0da637.tar.xz drakx-ca14a502d413a9a80a035b7fe29541fcfe0da637.zip |
*** empty log message ***
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r-- | perl-install/install_any.pm | 10 |
1 files changed, 5 insertions, 5 deletions
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(&$) { |