From 8e1302329799723ad368b9f662ba8111f67ea516 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 9 Jan 2002 12:57:17 +0000 Subject: avoid asking for minimal install for upgrade. --- perl-install/install_steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 6f85ec76f..ac884662c 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -652,7 +652,7 @@ sub chooseGroups { log::l("compssUsersChoice: " . (!$val{$_} && "not ") . "selected [$_] as [$o->{compssUsers}{$_}{label}]") foreach keys %val; #- if no group have been chosen, ask for using base system only, or no X, or normal. - unless (grep { $val{$_} } keys %val) { + unless ($o->{isUpgrade} || grep { $val{$_} } keys %val) { my $type; #- search for what is currently selected. @@ -671,7 +671,7 @@ Please choose the minimal installation you want"), [ __("Base system only"), __( $o->{default_packages} = []; $o->{compssUsersChoice}{$_} = 0 foreach keys %{$o->{compssUsersChoice}}; } else { - install_any::setDefaultPackages($o); + install_any::setDefaultPackages($o, 'clean'); $o->{compssUsersChoice}{X} = $type eq __('With X'); } install_any::unselectMostPackages($o); -- cgit v1.2.1