From b706220ef9ea230f9537df5380507cee52c96333 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 27 Aug 2001 16:53:40 +0000
Subject: add_devfslink

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

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 19d6bb9c6..661c32291 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -181,7 +181,7 @@ sub write {
     local $mouse->{XEMU3} = bool2yesno($mouse->{nbuttons} < 3);
     local $mouse->{WHEEL} = bool2yesno($mouse->{nbuttons} > 3);
     setVarsInSh("$prefix/etc/sysconfig/mouse", $mouse, qw(MOUSETYPE XMOUSETYPE FULLNAME XEMU3 WHEEL device));
-    symlinkf $mouse->{device}, "$prefix/dev/mouse" or log::l("creating $prefix/dev/mouse symlink failed");
+    symlinkf $mouse->{device}, "$prefix/dev/mouse" ? add_devfslink($prefix, "$prefix/dev/mouse") : log::l("creating $prefix/dev/mouse symlink failed");
 
     if (arch() =~ /ppc/) {
 	my $s = join('',
-- 
cgit v1.2.1