summaryrefslogtreecommitdiffstats
path: root/perl-install
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 /perl-install
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
Diffstat (limited to 'perl-install')
-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);