From 85b19a04cd2cd0fde76a3ed1492b2a1f80cedf5e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 12 Feb 2004 10:21:19 +0000 Subject: rename mouseconfig() with detect_serial() which is what it really does! --- perl-install/mouse.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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) { -- cgit v1.2.1