From 41fd4c5ecf59f690b01f50464d143aac1a3a3126 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 3 Sep 2002 14:53:46 +0000 Subject: add a sleep and second try for usb mouse. --- perl-install/mouse.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/mouse.pm') 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; } -- cgit v1.2.1