summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index d934fa84f..6750e3e8a 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -239,6 +239,8 @@ sub setupBootloader__general {
($b->{method}, my $method_choices) = bootloader::method_choices($fstab);
my $profiles = bootloader::has_profiles($b);
+ my $previous_acpi_val = bootloader::get_append($b, 'acpi');
+ my $force_acpi = $previous_acpi_val eq 'on';
my $memsize = bootloader::get_append($b, 'mem');
my $prev_clean_tmp = my $clean_tmp = any { $_->{mntpoint} eq '/tmp' } @{$all_hds->{special} ||= []};
my $prev_boot = $b->{boot};
@@ -259,6 +261,9 @@ sub setupBootloader__general {
{ label => N("Video mode"), val => \$b->{vga}, list => [ keys %bootloader::vga_modes ], not_edit => !$::expert, format => sub { $bootloader::vga_modes{$_[0]} }, advanced => 1 },
),
{ label => N("Delay before booting default image"), val => \$b->{timeout} },
+ if_($previous_acpi_val,
+ { label => N("Force ACPI"), val => \$force_acpi, type => 'bool' },
+ ),
if_($security >= 4 || $b->{password} || $b->{restricted},
{ label => N("Password"), val => \$b->{password}, hidden => 1 },
{ label => N("Password (again)"), val => \$b->{password2}, hidden => 1 },
@@ -305,6 +310,10 @@ sub setupBootloader__general {
bootloader::set_profiles($b, $profiles);
bootloader::add_append($b, "mem", $memsize);
+ if ($previous_acpi_val) {
+ my $s = $force_acpi ? 'on' : 'off';
+ bootloader::add_append($b, acpi => $s) if $s ne $previous_acpi_val;
+ }
if ($prev_clean_tmp != $clean_tmp) {
if ($clean_tmp) {