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 +-
 tools/mousedrake    | 1 -
 2 files changed, 1 insertion(+), 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);
-- 
cgit v1.2.1