From 0722e227ec69c28baccc5614edb3d37033bd8d24 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 27 Apr 2013 12:08:37 +0000
Subject: simplify

---
 perl-install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index e68158c51..eb7b86e06 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -116,7 +116,7 @@ sub install_acpi_pkgs {
     my $acpi = bootloader::get_append_with_key($b, 'acpi');
     my $use_acpi = !member($acpi, 'off', 'ht');
     if ($use_acpi) {
-	$do_pkgs->ensure_files_are_installed([ [ 'acpi', '/usr/bin/acpi' ], [ 'acpid', '/usr/sbin/acpid' ] ], $::isInstall);
+	$do_pkgs->ensure_files_are_installed([ [ qw(acpi /usr/bin/acpi) ], [ qw(acpid /usr/sbin/acpid) ] ], $::isInstall);
     }
     require services;
     services::set_status($_, $use_acpi, $::isInstall) foreach qw(acpi acpid);
-- 
cgit v1.2.1