diff options
| -rw-r--r-- | perl-install/any.pm | 8 | ||||
| -rw-r--r-- | perl-install/bootloader.pm | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 492d8da4f..0a5df8811 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -427,8 +427,12 @@ sub setupBootloader__general { } }, { label => N("Password (again)"), val => \$b->{password2}, hidden => 1 }, { text => N("Restrict command line options"), val => \$b->{restricted}, type => "bool", - text => N("restrict"), advanced => 1 - validate => sub { my $ok = !$b->{restricted} || $b->{password} or $in->ask_warn('', N("Option ``Restrict command line options'' is of no use without a password")); $ok } }, + text => N("restrict"), advanced => 1, + validate => sub { + my $ok = !$b->{restricted} || $b->{password} + or $in->ask_warn('', N("Option ``Restrict command line options'' is of no use without a password")); + $ok; + } }, { text => N("Clean /tmp at each boot"), val => \$clean_tmp, type => 'bool', advanced => 1 }, ]) or return 0; } else { diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 758d1d6b2..266df5ebd 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1,6 +1,6 @@ package bootloader; # $Id$ -use diagnostics; +#use diagnostics; use strict; #-###################################################################################### |