From 8dae955d6c76f66df700d50676a142610175bef8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 2 Oct 2000 12:20:46 +0000 Subject: no_comment --- perl-install/install_steps_interactive.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 546d19fbb..73fbedd2e 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -475,15 +475,16 @@ sub choosePackages { my $max = round_up(min($max_size, $availableC) / sqr(1024), 100); if ($::beginner) { - my (@l, @text); + my (@l); + my @text = (__("Minimum (%dMB)"), __("Recommended (%dMB)"), __("Complete (%dMB)")); if ($o->{meta_class} eq 'desktop') { - @l = (500, 800, 0); - @text = (__("Minimum (%dMB)"), __("Complete (%dMB)"), __("Custom")); - $max > $l[1] or splice(@l, 1, 1), splice(@text, 1, 1); + @l = (300, 500, 800, 0); + $max > $l[2] or splice(@l, 2, 1); + $max > $l[1] or splice(@l, 1, 1); $max > $l[0] or @l = $max; + $text[$#l] = __("Custom"); } else { @l = (300, 700, $max); - @text = (__("Minimum (%dMB)"), __("Recommended (%dMB)"), __("Complete (%dMB)")); $l[2] > $l[1] + 200 or splice(@l, 1, 1); #- not worth proposing too alike stuff $l[1] > $l[0] + 100 or splice(@l, 0, 1); } -- cgit v1.2.1