diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-24 06:37:19 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-24 06:37:19 +0000 |
commit | dfbb404b9eca66f780fe3787a01681121feadc24 (patch) | |
tree | adcde5f00f51b464f059f7cdf24fe4aef4d95ab4 /tools/keyboarddrake | |
parent | 84071688ab52d6af5cff69229d146342ae444941 (diff) | |
download | drakx-kbd-mouse-x11-dfbb404b9eca66f780fe3787a01681121feadc24.tar drakx-kbd-mouse-x11-dfbb404b9eca66f780fe3787a01681121feadc24.tar.gz drakx-kbd-mouse-x11-dfbb404b9eca66f780fe3787a01681121feadc24.tar.bz2 drakx-kbd-mouse-x11-dfbb404b9eca66f780fe3787a01681121feadc24.tar.xz drakx-kbd-mouse-x11-dfbb404b9eca66f780fe3787a01681121feadc24.zip |
perl_checker cleanups
Diffstat (limited to 'tools/keyboarddrake')
-rwxr-xr-x | tools/keyboarddrake | 2 |
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 { |