summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm18
1 files changed, 10 insertions, 8 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 02ed41b69..a573c9c65 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -305,14 +305,16 @@ 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 };
-
- #- in case only a wacom has been found, assume an inexistant mouse (necessary).
- @wacom and return fullname2mouse('none|No mouse', wacom => \@wacom);
-
- #- defaults to generic serial mouse on ttyS0.
- fullname2mouse("serial|Generic 2 Button Mouse", unsafe => 1);
+ my ($serial_mouse, @serial_wacom) = mouseconfig(); push @wacom, @serial_wacom;
+ if ($serial_mouse) {
+ { wacom => \@wacom, %$serial_mouse };
+ } elsif (@wacom) {
+ #- in case only a wacom has been found, assume an inexistant mouse (necessary).
+ fullname2mouse('none|No mouse', wacom => \@wacom);
+ } else {
+ #- defaults to generic serial mouse on ttyS0.
+ fullname2mouse("serial|Generic 2 Button Mouse", unsafe => 1);
+ }
}
sub load_modules {