summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/mouse.pm')
-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 fadf047ff..3a37ab27c 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -289,7 +289,7 @@ sub detect {
if (c::kernel_version() =~ /^\Q2.6/) {
$modules_conf->get_probeall("usb-interface") and eval { modules::load('usbhid') };
- if (any { /^H: Handlers=mouse/ } cat_('/proc/bus/input/devices')) {
+ if (cat_('/proc/bus/input/devices') =~ /^H: Handlers=mouse/) {
if (is_xbox()) {
return fullname2mouse('Universal|Microsoft Xbox Controller S');
}