1 files changed, 1 insertions, 1 deletions
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 {