diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-04-19 13:20:03 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-04-19 13:20:03 +0000 |
| commit | cb5433b09481a35bfc480fe66eeb03877b298401 (patch) | |
| tree | c84874e6fad1191ba6a090b91af6be86a85ff48b /perl-install/mouse.pm | |
| parent | 8061a2db18a0162e9d70cb1448e28f367776fdf1 (diff) | |
| download | drakx-backup-do-not-use-cb5433b09481a35bfc480fe66eeb03877b298401.tar drakx-backup-do-not-use-cb5433b09481a35bfc480fe66eeb03877b298401.tar.gz drakx-backup-do-not-use-cb5433b09481a35bfc480fe66eeb03877b298401.tar.bz2 drakx-backup-do-not-use-cb5433b09481a35bfc480fe66eeb03877b298401.tar.xz drakx-backup-do-not-use-cb5433b09481a35bfc480fe66eeb03877b298401.zip | |
kill unused variable, simplify
Diffstat (limited to 'perl-install/mouse.pm')
| -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 52b653beb..fadf047ff 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 (my $mouse_nb = scalar grep { /^H: Handlers=mouse/ } cat_('/proc/bus/input/devices')) { + if (any { /^H: Handlers=mouse/ } cat_('/proc/bus/input/devices')) { if (is_xbox()) { return fullname2mouse('Universal|Microsoft Xbox Controller S'); } |