From de08b3c99e81030d1455dc7b3bf869559a234495 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 10 Oct 1999 22:36:46 +0000
Subject: no_comment

---
 perl-install/mouse.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/mouse.pm')

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 27979ea8d..795d859b1 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -6,7 +6,7 @@ use strict;
 #-######################################################################################
 #- misc imports
 #-######################################################################################
-use common qw(:common :system :functional);
+use common qw(:common :system :functional :file);
 use modules;
 use log;
 
@@ -62,7 +62,7 @@ sub serial_ports_names {
 }
 sub serial_ports_names2dev {
     local ($_) = @_;
-    /(\w+)/;
+    first(/(\w+)/);
 }
 
 sub read($) {
@@ -76,7 +76,7 @@ sub write($;$) {
     my ($prefix, $mouse) = @_;
     local $mouse->{FULLNAME} = qq("$mouse->{FULLNAME}");
     setVarsInSh("$prefix/etc/sysconfig/mouse", $mouse, qw(MOUSETYPE XMOUSETYPE FULLNAME XEMU3));
-    symlink $mouse->{device}, "$prefix/dev/mouse" or log::l("creating $prefix/dev/mouse symlink failed");
+    symlinkf $mouse->{device}, "$prefix/dev/mouse" or log::l("creating $prefix/dev/mouse symlink failed");
 }
 
 sub detect() {
-- 
cgit v1.2.1