summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-21 15:34:32 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-21 15:34:32 +0000
commit9425b08b1ba5510b882a25b59622642e6ff95a51 (patch)
tree18efaf5ab5dd914c00f9f11fc705f2dd115b5c0a
parent22be98e89340b7860af5aafa811a896780d4379b (diff)
downloaddrakx-backup-do-not-use-9425b08b1ba5510b882a25b59622642e6ff95a51.tar
drakx-backup-do-not-use-9425b08b1ba5510b882a25b59622642e6ff95a51.tar.gz
drakx-backup-do-not-use-9425b08b1ba5510b882a25b59622642e6ff95a51.tar.bz2
drakx-backup-do-not-use-9425b08b1ba5510b882a25b59622642e6ff95a51.tar.xz
drakx-backup-do-not-use-9425b08b1ba5510b882a25b59622642e6ff95a51.zip
help perl_checker
-rw-r--r--perl-install/mouse.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 28afa68aa..f126c9cc0 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -292,7 +292,7 @@ sub detect {
$modules_conf->get_probeall("usb-interface") and eval { modules::load('usbhid') };
my @input_devices = cat_('/proc/bus/input/devices');
my $synaptics_mouse;
- if (my $mouse_nb = grep { /^H: Handlers=mouse/ } @input_devices) {
+ if (my $mouse_nb = scalar grep { /^H: Handlers=mouse/ } @input_devices) {
if (is_xbox()) {
return fullname2mouse('Universal|Microsoft Xbox Controller S');
}