From f2c9aaef837eceaebbc643f77492fce69fb32f3f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 19 Aug 2003 19:34:35 +0000 Subject: full pci probe does not freeze anymore, removing code work-arounding the freeze --- perl-install/mouse.pm | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 0a0a0503c..84b987002 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -313,19 +313,6 @@ sub detect() { #- in case only a wacom has been found, assume an inexistant mouse (necessary). @wacom and return fullname2mouse('none|No mouse', wacom => \@wacom); - 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::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; - } - } - #- defaults to generic serial mouse on ttyS0. #- Oops? using return let return a hash ref, if not using it, it return a list directly :-) return fullname2mouse("serial|Generic 2 Button Mouse", unsafe => 1); -- cgit v1.2.1