diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:48 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:48 +0000 |
commit | 417daba4c63d5ede2bc3fa75438e62fe46d6e071 (patch) | |
tree | 2ec3d9ca1ec65a1b9f5f52746c77a1dc095ca238 /perl-install | |
parent | 46eec5dbc379939056f4a973a4c18fef7dcd1a65 (diff) | |
download | drakx-backup-do-not-use-417daba4c63d5ede2bc3fa75438e62fe46d6e071.tar drakx-backup-do-not-use-417daba4c63d5ede2bc3fa75438e62fe46d6e071.tar.gz drakx-backup-do-not-use-417daba4c63d5ede2bc3fa75438e62fe46d6e071.tar.bz2 drakx-backup-do-not-use-417daba4c63d5ede2bc3fa75438e62fe46d6e071.tar.xz drakx-backup-do-not-use-417daba4c63d5ede2bc3fa75438e62fe46d6e071.zip |
(chooseGroups) factorize !isUpgrade test
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install/steps_interactive.pm | 9 |
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; } |