summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-09-03 14:53:46 +0000
committerFrancois Pons <fpons@mandriva.com>2002-09-03 14:53:46 +0000
commit41fd4c5ecf59f690b01f50464d143aac1a3a3126 (patch)
treee622cc81f7ba959206a478db255e6ece5d9b5a03 /perl-install/mouse.pm
parentdc6e391811265ea57d68a06745c8377418e5499b (diff)
downloaddrakx-backup-do-not-use-41fd4c5ecf59f690b01f50464d143aac1a3a3126.tar
drakx-backup-do-not-use-41fd4c5ecf59f690b01f50464d143aac1a3a3126.tar.gz
drakx-backup-do-not-use-41fd4c5ecf59f690b01f50464d143aac1a3a3126.tar.bz2
drakx-backup-do-not-use-41fd4c5ecf59f690b01f50464d143aac1a3a3126.tar.xz
drakx-backup-do-not-use-41fd4c5ecf59f690b01f50464d143aac1a3a3126.zip
add a sleep and second try for usb mouse.
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index fc919f9ae..48aa6fc51 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -329,12 +329,14 @@ sub detect() {
MOUSETYPE => "Microsoft",
XMOUSETYPE => "Microsoft", wacom => \@wacom };
- if (!modules::get_probeall("usb-interface") && detect_devices::is_a_recent_computer() && $::isInstall) {
+ if (detect_devices::is_a_recent_computer() && $::isInstall) {
#- special case for non detected usb interface on a box with no mouse.
#- we *must* find out if there really is no usb, otherwise the box may
#- not be accessible via the keyboard (if the keyboard is USB)
#- the only way to know this is to make a full pci probe
- modules::load_category('bus/usb', '', 'unsafe');
+ modules::get_probeall("usb-interface") or modules::load_category('bus/usb', '', 'unsafe');
+ log::l("trying again to find a usb mouse");
+ sleep 10;
if (my $mouse = $fast_mouse_probe->()) {
return $mouse;
}