diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-04-11 12:03:20 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-04-11 12:03:20 +0000 |
| commit | 875b26a633e827a0f8df6e32b7cf094685b633c9 (patch) | |
| tree | a84509a5ad486b6b5fd9b35742c763eccc77da80 /perl-install/mouse.pm | |
| parent | fc1ca6a13a8ac078a2f57736da53eb81ed6b3f29 (diff) | |
| download | drakx-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/mouse.pm')
| -rw-r--r-- | perl-install/mouse.pm | 5 |
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"); }; } } |