From 3bf40616e233d127ecc0c1f90edd740d23a361ca Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 16 Dec 2000 16:13:34 +0000 Subject: use ldetect-lst --- perl-install/standalone/mousedrake | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone/mousedrake') 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)); -- cgit v1.2.1