From 062364c848b79f5a54e393d39166020bf7453417 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 1 Mar 2002 11:01:10 +0000 Subject: 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 --- perl-install/mouse.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index c07e9ae38..9009d811d 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -314,6 +314,17 @@ sub detect() { MOUSETYPE => "Microsoft", XMOUSETYPE => "Microsoft"}, @wacom; + if (!modules::get_alias("usb-interface") && detect_devices::is_a_recent_computer() && $::isInstall && !$::noauto) { + #- 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_thiskind("usb", '', 'unsafe'); + 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