From 99c9b0680ce235c7e5bb6d18a8154a147e70947c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 28 Sep 1999 15:53:43 +0000
Subject: *** empty log message ***

---
 perl-install/mouse.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 4e91da97c..27979ea8d 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -65,10 +65,15 @@ sub serial_ports_names2dev {
     /(\w+)/;
 }
 
-sub read($) { getVarsFromSh $_[0]; }
+sub read($) {
+    my ($prefix) = @_;
+    my %mouse = getVarsFromSh "$prefix/etc/sysconfig/mouse";
+    $mouse{device} = readlink "$prefix/dev/mouse" or log::l("reading $prefix/dev/mouse symlink failed");
+    %mouse;
+}
 
 sub write($;$) {
-    my ($mouse, $prefix) = @_;
+    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");
-- 
cgit v1.2.1