summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-12 10:21:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-12 10:21:19 +0000
commit85b19a04cd2cd0fde76a3ed1492b2a1f80cedf5e (patch)
treedc7507761613908e4aefc76ed21c75d03e6a5f1d /perl-install
parent9b2658337029bc3d259f714dc5fe3bd0f7debef9 (diff)
downloaddrakx-85b19a04cd2cd0fde76a3ed1492b2a1f80cedf5e.tar
drakx-85b19a04cd2cd0fde76a3ed1492b2a1f80cedf5e.tar.gz
drakx-85b19a04cd2cd0fde76a3ed1492b2a1f80cedf5e.tar.bz2
drakx-85b19a04cd2cd0fde76a3ed1492b2a1f80cedf5e.tar.xz
drakx-85b19a04cd2cd0fde76a3ed1492b2a1f80cedf5e.zip
rename mouseconfig() with detect_serial() which is what it really does!
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index c0ed6a7ea..0518ae25f 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -233,7 +233,7 @@ sub probe_wacom_devices() {
@wacom;
}
-sub mouseconfig() {
+sub detect_serial() {
my ($t, $mouse, @wacom);
#- Whouah! probing all devices from ttyS0 to ttyS3 once a time!
@@ -306,7 +306,7 @@ sub detect() {
#- probe serial device to make sure a wacom has been detected.
eval { modules::load("serial") };
- my ($serial_mouse, @serial_wacom) = mouseconfig(); push @wacom, @serial_wacom;
+ my ($serial_mouse, @serial_wacom) = detect_serial(); push @wacom, @serial_wacom;
if ($serial_mouse) {
{ wacom => \@wacom, %$serial_mouse };
} elsif (@wacom) {