diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-03-21 15:34:32 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-03-21 15:34:32 +0000 |
| commit | 9425b08b1ba5510b882a25b59622642e6ff95a51 (patch) | |
| tree | 18efaf5ab5dd914c00f9f11fc705f2dd115b5c0a /perl-install | |
| parent | 22be98e89340b7860af5aafa811a896780d4379b (diff) | |
| download | drakx-9425b08b1ba5510b882a25b59622642e6ff95a51.tar drakx-9425b08b1ba5510b882a25b59622642e6ff95a51.tar.gz drakx-9425b08b1ba5510b882a25b59622642e6ff95a51.tar.bz2 drakx-9425b08b1ba5510b882a25b59622642e6ff95a51.tar.xz drakx-9425b08b1ba5510b882a25b59622642e6ff95a51.zip | |
help perl_checker
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mouse.pm | 2 |
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'); } |