summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/mousedrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-12-16 16:13:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-12-16 16:13:34 +0000
commit3bf40616e233d127ecc0c1f90edd740d23a361ca (patch)
tree123688226f45977d93c97ab68635dfd492a5f54d /perl-install/standalone/mousedrake
parente76ac94274b3c3e3bb809f9a73718a56e652631b (diff)
downloaddrakx-3bf40616e233d127ecc0c1f90edd740d23a361ca.tar
drakx-3bf40616e233d127ecc0c1f90edd740d23a361ca.tar.gz
drakx-3bf40616e233d127ecc0c1f90edd740d23a361ca.tar.bz2
drakx-3bf40616e233d127ecc0c1f90edd740d23a361ca.tar.xz
drakx-3bf40616e233d127ecc0c1f90edd740d23a361ca.zip
use ldetect-lst
Diffstat (limited to 'perl-install/standalone/mousedrake')
-rwxr-xr-xperl-install/standalone/mousedrake6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index 397a1f12a..27bbc8f9a 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -4,6 +4,7 @@ use lib qw(/usr/lib/libDrakX);
use common qw(:common :system);
use interactive;
+use detect_devices;
use mouse;
use c;
require 'dumpvar.pl';
@@ -29,9 +30,8 @@ if (!$mouse || !$::auto) {
$mouse = mouse::fullname2mouse($name);
if ($mouse->{device} eq "usbmouse") {
- require pci_probing::main;
- my ($c) = pci_probing::main::probe("serial_usb") or die _("no serial_usb found\n");
- eval { modules::load($c->[1], "serial_usb") };
+ my ($c) = grep { $_->{driver} =~ /usb-[ou]hci/ } detect_devices::pci_probe(0) or die _("no serial_usb found\n");
+ eval { modules::load($c->{driver}, "serial_usb") };
}
}
$mouse->{XEMU3} = 'yes' if $mouse->{nbuttons} < 3 && (!$::noauto || $in->ask_yesorno('', _("Emulate third button?"), 1));