summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-24 18:00:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-24 18:00:57 +0000
commitf052346ccfd2745fdcc6fc5993359039c56b1ca0 (patch)
tree9761bd333d366b49225b75b7fb60b17bd84da24a /perl-install
parent184d9acee370d8eaf11384a97c121d2025a373b0 (diff)
downloaddrakx-backup-do-not-use-f052346ccfd2745fdcc6fc5993359039c56b1ca0.tar
drakx-backup-do-not-use-f052346ccfd2745fdcc6fc5993359039c56b1ca0.tar.gz
drakx-backup-do-not-use-f052346ccfd2745fdcc6fc5993359039c56b1ca0.tar.bz2
drakx-backup-do-not-use-f052346ccfd2745fdcc6fc5993359039c56b1ca0.tar.xz
drakx-backup-do-not-use-f052346ccfd2745fdcc6fc5993359039c56b1ca0.zip
(detect): fix francois... uh, no too hard. easier to fix francois's bugs ;pp
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index e8a648c4e..ac5498407 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -210,11 +210,12 @@ sub detect() {
log::l("found usb mouse $_->{driver} $_->{description} ($_->{type})") foreach @l;
eval { modules::load("usbmouse"); modules::load("mousedev"); };
!$@ && detect_devices::tryOpen("usbmouse") and
- return fullname2mouse($l[0]{driver} =~ /Mouse:(.*)/ ? $1 : "USB|Generic"), @wacom;
+ return fullname2mouse($l[0]{driver} =~ /Mouse:(.*)/ ? $1 : "USB|Generic");
eval { modules::unload("mousedev"); modules::unload("usbmouse"); };
}
}
- detect_devices::hasMousePS2("psaux") and return fullname2mouse("PS/2|Standard", unsafe => 1), @wacom;
+ detect_devices::hasMousePS2("psaux") and return fullname2mouse("PS/2|Standard", unsafe => 1);
+ undef;
};
if (modules::get_alias("usb-interface")) {
@@ -230,13 +231,19 @@ sub detect() {
}
}
- $::isStandalone and $fast_mouse_probe->();
+ if ($::isStandalone) {
+ my $mouse = $fast_mouse_probe->();
+ $mouse and return ($mouse, @wacom);
+ }
#- probe serial device to make sure a wacom has been detected.
eval { modules::load("serial") };
my ($r, @serial_wacom) = mouseconfig(); push @wacom, @serial_wacom; return ($r, @wacom) if $r;
- $::isStandalone or $fast_mouse_probe->();
+ if (!$::isStandalone) {
+ my $mouse = $fast_mouse_probe->();
+ $mouse and return ($mouse, @wacom);
+ }
#- in case only a wacom has been found, assume an inexistant mouse (necessary).
@wacom and return { CLASS => 'MOUSE',