From 4842bad25f3ca1014a8e4add312d031a57ae8580 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Sat, 4 Mar 2006 18:02:21 +0000 Subject: enable acpi/acpid services when needed, disable them otherwise (#21316) --- perl-install/any.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/perl-install/any.pm b/perl-install/any.pm index f08f02f70..f72e0f2e3 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -115,9 +115,13 @@ sub install_acpi_pkgs { my ($do_pkgs, $b) = @_; my $acpi = bootloader::get_append_with_key($b, 'acpi'); - if (!member($acpi, 'off', 'ht')) { - $do_pkgs->install('acpi', 'acpid') if !(-x "$::prefix/usr/bin/acpi" && -x "$::prefix/usr/sbin/acpid"); + my $use_acpi = !member($acpi, 'off', 'ht'); + if ($use_acpi) { + $do_pkgs->ensure_is_installed('acpi', '/usr/bin/acpi'); + $do_pkgs->ensure_is_installed('acpid', '/usr/sbin/acpid'); } + require services; + services::set_status($_, $use_acpi, $::isInstall) foreach qw(acpi acpid); } sub setupBootloader { -- cgit v1.2.1