summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-24 06:37:19 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-24 06:37:19 +0000
commitdfbb404b9eca66f780fe3787a01681121feadc24 (patch)
treeadcde5f00f51b464f059f7cdf24fe4aef4d95ab4
parent84071688ab52d6af5cff69229d146342ae444941 (diff)
downloaddrakx-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
-rwxr-xr-xtools/keyboarddrake2
-rwxr-xr-xtools/mousedrake1
2 files changed, 1 insertions, 2 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 {
diff --git a/tools/mousedrake b/tools/mousedrake
index 1cf7568..a583044 100755
--- a/tools/mousedrake
+++ b/tools/mousedrake
@@ -20,7 +20,6 @@ my $in = 'interactive'->vnew('su');
my $modules_conf = modules::any_conf->read;
my $mouse = mouse::read();
-my %old = %$mouse;
if (!$::noauto) {
my $probed_mouse = mouse::detect($modules_conf);