summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-10 22:36:46 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-10 22:36:46 +0000
commitde08b3c99e81030d1455dc7b3bf869559a234495 (patch)
tree71639bb74323bb82e7203d84511e8b81702ca2fa /perl-install/mouse.pm
parenteaf1f7e94354b3bf37db6864de8364ffbda223f7 (diff)
downloaddrakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.tar
drakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.tar.gz
drakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.tar.bz2
drakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.tar.xz
drakx-backup-do-not-use-de08b3c99e81030d1455dc7b3bf869559a234495.zip
no_comment
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm6
1 files changed, 3 insertions, 3 deletions
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() {