From 2c3ba3788c6c6ba51a1b59795255e997cc240687 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 30 Aug 2001 16:16:19 +0000
Subject: make sure to update all symlink according to any mouse (max 2)
 probed.

---
 perl-install/mouse.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 68f70b0ae..8ab4db5bd 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -199,6 +199,7 @@ sub write {
     local $mouse->{WHEEL} = bool2yesno($mouse->{nbuttons} > 3);
     setVarsInSh("$prefix/etc/sysconfig/mouse", $mouse, qw(MOUSETYPE XMOUSETYPE FULLNAME XEMU3 WHEEL device));
     any::devfssymlinkf ($mouse->{device}, 'mouse', $prefix) or log::l("creating $prefix/dev/mouse symlink failed");
+    $mouse->{auxmouse} and any::devfssymlinkf ($mouse->{auxmouse}{device}, 'mouse1', $prefix) or log::l("creating $prefix/dev/mouse1 symlink failed");
 
     if (arch() =~ /ppc/) {
 	my $s = join('',
-- 
cgit v1.2.1