summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-03-01 11:01:10 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-03-01 11:01:10 +0000
commit062364c848b79f5a54e393d39166020bf7453417 (patch)
treed2b15e8e6e688fa4fed84c2e2e7a4e9374307185
parent7b4d926e713db9505b6fc96f117e0936cc946607 (diff)
downloaddrakx-062364c848b79f5a54e393d39166020bf7453417.tar
drakx-062364c848b79f5a54e393d39166020bf7453417.tar.gz
drakx-062364c848b79f5a54e393d39166020bf7453417.tar.bz2
drakx-062364c848b79f5a54e393d39166020bf7453417.tar.xz
drakx-062364c848b79f5a54e393d39166020bf7453417.zip
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
-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);