diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-22 17:29:22 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-22 17:29:22 +0000 |
commit | eec5775e4d4372f113510ca537c3e45aeb169364 (patch) | |
tree | 82a118221e12f68e27a96a57381af915f59bbc58 /perl-install/install_steps_interactive.pm | |
parent | d364fb888f95500ffd73d6b875900829e3623f1c (diff) | |
download | drakx-eec5775e4d4372f113510ca537c3e45aeb169364.tar drakx-eec5775e4d4372f113510ca537c3e45aeb169364.tar.gz drakx-eec5775e4d4372f113510ca537c3e45aeb169364.tar.bz2 drakx-eec5775e4d4372f113510ca537c3e45aeb169364.tar.xz drakx-eec5775e4d4372f113510ca537c3e45aeb169364.zip |
no need to use max_size, no need to compute it
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r-- | perl-install/install_steps_interactive.pm | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 45cc0fb09..d2a0554c4 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -457,8 +457,8 @@ sub choosePackages { require pkgs; my $min_size = pkgs::selectedSize($packages); + undef $w; unless ($min_size < $availableC) { - undef $w; $o->ask_warn('', N("Your system does not have enough space left for installation or upgrade (%d > %d)", $min_size, $availableC)); install_steps::rebootNeeded($o); @@ -466,16 +466,8 @@ sub choosePackages { my $min_mark = 4; - my $b = pkgs::saveSelected($packages); - my %all_compssUsers_flags = map { $_ => 1 } map { @{$_->{flags}} } @$compssUsers; - my $_level = pkgs::setSelectedFromCompssList($packages, \%all_compssUsers_flags, $min_mark, 0); - my $max_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero. - log::l("max size (level $min_mark) is : " . formatXiB($max_size)); - pkgs::restoreSelected($b); - undef $w; - chooseGroups: - $o->chooseGroups($packages, $compssUsers, $min_mark, \$individual, $max_size) if !$o->{isUpgrade} && $o->{meta_class} ne 'desktop'; + $o->chooseGroups($packages, $compssUsers, $min_mark, \$individual) if !$o->{isUpgrade} && $o->{meta_class} ne 'desktop'; ($o->{packages_}{ind}) = pkgs::setSelectedFromCompssList($packages, $o->{rpmsrate_flags_chosen}, $min_mark, $availableC); @@ -529,7 +521,7 @@ The format is the same as auto_install generated floppies."), } } sub chooseGroups { - my ($o, $packages, $compssUsers, $min_level, $individual, $max_size) = @_; + my ($o, $packages, $compssUsers, $min_level, $individual) = @_; #- for all groups available, determine package which belongs to each one. #- this will enable getting the size of each groups more quickly due to @@ -538,7 +530,7 @@ sub chooseGroups { my $b = pkgs::saveSelected($packages); install_any::unselectMostPackages($o); - pkgs::setSelectedFromCompssList($packages, {}, $min_level, $max_size); + pkgs::setSelectedFromCompssList($packages, {}, $min_level, 0); my $system_size = pkgs::selectedSize($packages); my ($sizes, $pkgs) = pkgs::computeGroupSize($packages, $min_level); pkgs::restoreSelected($b); |