summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-12 10:10:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-12 10:10:22 +0000
commitda02aa49da159a69643449d28609e128fe07937f (patch)
treee694671b9499b8aafb9d6a1cd29cabc331a7fb21 /perl-install
parent86f96cd66b41a1d5ff3b5958a858cccef55a389a (diff)
downloaddrakx-backup-do-not-use-da02aa49da159a69643449d28609e128fe07937f.tar
drakx-backup-do-not-use-da02aa49da159a69643449d28609e128fe07937f.tar.gz
drakx-backup-do-not-use-da02aa49da159a69643449d28609e128fe07937f.tar.bz2
drakx-backup-do-not-use-da02aa49da159a69643449d28609e128fe07937f.tar.xz
drakx-backup-do-not-use-da02aa49da159a69643449d28609e128fe07937f.zip
cleanup wacom detection
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm9
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 62617feb7..ab1d1ac42 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -287,16 +287,13 @@ sub detect() {
};
if (modules::get_probeall("usb-interface")) {
- my $keep_mouse;
if (my (@l) = detect_devices::usbWacom()) {
log::l("found usb wacom $_->{driver} $_->{description} ($_->{type})") foreach @l;
eval { modules::load("wacom", "evdev") };
- unless ($@) {
- foreach (0..$#l) {
- detect_devices::tryOpen("input/event$_") and $keep_mouse = 1, push @wacom, "input/event$_";
- }
+ if (!$@) {
+ @wacom = grep { detect_devices::tryOpen($_) } map_index { "input/event$::i" } @l;
}
- $keep_mouse or eval { modules::unload("evdev", "wacom") };
+ @wacom or eval { modules::unload("evdev", "wacom") };
}
} else {
log::l("no usb interface found for wacom");