From bb1b050f726ff84e731ca74fc05b041237df1659 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 19 Apr 2005 13:35:21 +0000 Subject: simplify again (Pixel) --- perl-install/mouse.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/mouse.pm') 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'); } -- cgit v1.2.1