From 1349b36abda31902be8e5a512aa718b15d1ee472 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 3 Nov 2003 13:02:26 +0000 Subject: use member --- perl-install/install_steps.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 9a95e2648..f67eb5ce7 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -660,7 +660,7 @@ sub summaryAfter { require bootloader; my $acpi = bootloader::get_append($o->{bootloader}, 'acpi'); - if ($acpi ne 'off' && $acpi ne 'ht' && !(-x "$::prefix/usr/bin/acpi" && -x "$::prefix/usr/sbin/acpid")) { + if (!member($acpi, 'off', 'ht') && !(-x "$::prefix/usr/bin/acpi" && -x "$::prefix/usr/sbin/acpid")) { $o->do_pkgs->install(qw(acpi acpid)); } } -- cgit v1.2.1