summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:25:48 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:25:48 +0000
commit22b917c00b4907abd1023520a415756493c52a18 (patch)
tree2ec3d9ca1ec65a1b9f5f52746c77a1dc095ca238 /perl-install
parent1c1f7fcaa1602cf51e4c1879fe111be88302b3a9 (diff)
downloaddrakx-22b917c00b4907abd1023520a415756493c52a18.tar
drakx-22b917c00b4907abd1023520a415756493c52a18.tar.gz
drakx-22b917c00b4907abd1023520a415756493c52a18.tar.bz2
drakx-22b917c00b4907abd1023520a415756493c52a18.tar.xz
drakx-22b917c00b4907abd1023520a415756493c52a18.zip
(chooseGroups) factorize !isUpgrade test
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/steps_interactive.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 22cc0c2b0..5f29c4eab 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -574,13 +574,12 @@ sub chooseGroups {
log::l("compssUsersChoice selected: ", join(', ', map { qq("$_->{path}|$_->{label}") } grep { $_->{selected} } @$compssUsers));
- #- do not try to deselect package (by default no groups are selected).
if (!$o->{isUpgrade}) {
+ #- do not try to deselect package (by default no groups are selected).
install::any::unselectMostPackages($o) if $unselect_all;
- }
- #- if no group have been chosen, ask for using base system only, or no X, or normal.
- if (!$o->{isUpgrade} && !any { $_->{selected} } @$compssUsers) {
- offer_minimal_options($o);
+
+ #- if no group have been chosen, ask for using base system only, or no X, or normal.
+ offer_minimal_options($o) if !any { $_->{selected} } @$compssUsers;
}
1;
}