diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:45 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:45 +0000 |
| commit | 1c1f7fcaa1602cf51e4c1879fe111be88302b3a9 (patch) | |
| tree | 3409cd9cb1675cf8458b5fd6e4575a4039e22db5 /perl-install | |
| parent | 167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7 (diff) | |
| download | drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.tar drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.tar.gz drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.tar.bz2 drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.tar.xz drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.zip | |
(offer_minimal_options) split it out of chooseGroups()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 2ead20c9c..22cc0c2b0 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -580,6 +580,13 @@ sub chooseGroups { } #- 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); + } + 1; +} + +sub offer_minimal_options { + my ($o) = @_; my $docs = !$o->{excludedocs}; state $minimal; my $suggests = $o->{no_suggests}; @@ -608,8 +615,6 @@ Please choose the minimal installation you want:"), log::l("install settings: no_suggests=$o->{no_suggests}, excludedocs=$o->{excludedocs}, really_minimal_install=$minimal"); install::any::unselectMostPackages($o); - } - 1; } sub reallyChooseGroups { |