From 86ed1dbac37685ddf52c9513d601604003df4fe5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sun, 7 Sep 2014 03:44:53 +0200 Subject: rename variable for consistency --- perl-install/install/steps_interactive.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index e03cd2480..e8f1e0ebb 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -567,7 +567,7 @@ sub offer_minimal_options { my ($o) = @_; my $docs = !$o->{excludedocs}; state $minimal; - my $suggests = !$o->{no_recommends}; + my $recommends = !$o->{no_recommends}; $o->ask_from_({ title => N("Type of install"), message => N("You have not selected any group of packages. @@ -576,20 +576,20 @@ Please choose the minimal installation you want:"), }, [ { val => \$o->{rpmsrate_flags_chosen}{CAT_X}, type => 'bool', text => N("With X"), disabled => sub { $minimal } }, - { val => \$suggests, type => 'bool', text => N("Install suggested packages"), disabled => sub { $minimal } }, + { val => \$recommends, type => 'bool', text => N("Install suggested packages"), disabled => sub { $minimal } }, { val => \$docs, type => 'bool', text => N("With basic documentation (recommended!)"), disabled => sub { $minimal } }, { val => \$minimal, type => 'bool', text => N("Truly minimal install (especially no urpmi)") }, ], ) or return 0; if ($minimal) { - $o->{rpmsrate_flags_chosen}{CAT_X} = $docs = $suggests = 0; + $o->{rpmsrate_flags_chosen}{CAT_X} = $docs = $recommends = 0; $o->{rpmsrate_flags_chosen}{CAT_SYSTEM} = 0; } $o->{excludedocs} = !$docs; $o->{rpmsrate_flags_chosen}{CAT_MINIMAL_DOCS} = $docs; - $o->{no_recommends} = !$suggests; - $o->{compssListLevel} = pkgs::rpmsrate_rate_max() if !$suggests; + $o->{no_recommends} = !$recommends; + $o->{compssListLevel} = pkgs::rpmsrate_rate_max() if !$recommends; log::l("install settings: no_recommends=$o->{no_recommends}, excludedocs=$o->{excludedocs}, really_minimal_install=$minimal"); install::any::unselectMostPackages($o); -- cgit v1.2.1