perl_checker cleanups

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);