summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/mouse.pm11
1 files changed, 11 insertions, 0 deletions
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);