From dfbb404b9eca66f780fe3787a01681121feadc24 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 24 Mar 2012 06:37:19 +0000
Subject: perl_checker cleanups

---
 tools/keyboarddrake | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tools/keyboarddrake')

diff --git a/tools/keyboarddrake b/tools/keyboarddrake
index 567a221..f15fd21 100755
--- a/tools/keyboarddrake
+++ b/tools/keyboarddrake
@@ -20,7 +20,7 @@ my $keyboard = keyboard::read_or_default();
 if (my ($kb) = grep { !/^-/ } @ARGV) {
     keyboard::KEYBOARD2text($kb) or die "bad keyboard $kb\n";
     $keyboard->{KEYBOARD} = $kb;
-} elsif (grep { $_ eq '--migrate' } @ARGV) {
+} elsif (member('--migrate', @ARGV)) {
     keyboard::write($keyboard);
     exit 0;
 } else {
-- 
cgit v1.2.1