summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-04-11 12:03:20 +0000
committerFrancois Pons <fpons@mandriva.com>2001-04-11 12:03:20 +0000
commit875b26a633e827a0f8df6e32b7cf094685b633c9 (patch)
treea84509a5ad486b6b5fd9b35742c763eccc77da80 /perl-install
parentfc1ca6a13a8ac078a2f57736da53eb81ed6b3f29 (diff)
downloaddrakx-875b26a633e827a0f8df6e32b7cf094685b633c9.tar
drakx-875b26a633e827a0f8df6e32b7cf094685b633c9.tar.gz
drakx-875b26a633e827a0f8df6e32b7cf094685b633c9.tar.bz2
drakx-875b26a633e827a0f8df6e32b7cf094685b633c9.tar.xz
drakx-875b26a633e827a0f8df6e32b7cf094685b633c9.zip
fix wacom usb tablet
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index f37bcc9fd..08205213a 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -253,15 +253,16 @@ sub detect() {
};
if (modules::get_alias("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"); modules::load("evdev"); };
unless ($@) {
foreach (0..$#l) {
- detect_devices::tryOpen("input/event$_") and push @wacom, "input/event$_";
+ detect_devices::tryOpen("input/event$_") and $keep_mouse = 1, push @wacom, "input/event$_";
}
}
- eval { modules::unload("evdev"); modules::unload("wacom"); };
+ $keep_mouse or eval { modules::unload("evdev"); modules::unload("wacom"); };
}
}