summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-09-06 16:27:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-09-06 16:27:49 +0000
commita35e12be737182be8511d0205adbff8023b818ee (patch)
treecdbcd7e5834f5710a586de34acfa24305c901001 /perl-install
parentc187eacc8157880eaf1f60dc8e2805e24f97fcf1 (diff)
downloaddrakx-backup-do-not-use-a35e12be737182be8511d0205adbff8023b818ee.tar
drakx-backup-do-not-use-a35e12be737182be8511d0205adbff8023b818ee.tar.gz
drakx-backup-do-not-use-a35e12be737182be8511d0205adbff8023b818ee.tar.bz2
drakx-backup-do-not-use-a35e12be737182be8511d0205adbff8023b818ee.tar.xz
drakx-backup-do-not-use-a35e12be737182be8511d0205adbff8023b818ee.zip
during install, don't probe PS/2 mice when a serial mouse is already found.
(otherwise if a PS/2 keyboard is present, a PS/2 is found even if absent, and configuring an auxmouse PS/2 causes the PS/2 keyboard to freeze) (thanks to Nora Etukudo)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 48aa6fc51..106e8c3cd 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -312,14 +312,11 @@ sub detect() {
#- probe serial device to make sure a wacom has been detected.
eval { modules::load("serial") };
my ($r, @serial_wacom) = mouseconfig(); push @wacom, @serial_wacom;
+ $r and return { wacom => \@wacom, %$r };
if (!$::isStandalone) {
my $mouse = $fast_mouse_probe->();
- $r && $mouse and $r->{auxmouse} = $mouse; #- we kept the auxilliary mouse as PS/2.
- $r and return { wacom => \@wacom, %$r };
$mouse and return { wacom => \@wacom, %$mouse };
- } else {
- $r and return { wacom => \@wacom, %$r };
}
#- in case only a wacom has been found, assume an inexistant mouse (necessary).