From 85b19a04cd2cd0fde76a3ed1492b2a1f80cedf5e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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