summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files 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);