From f25af23f7dc2ce595170771b91d343026c210748 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Tue, 28 Aug 2001 12:47:55 +0000
Subject: typo

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

(limited to 'perl-install')

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 106270a38..7a74dd857 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -182,7 +182,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" ? any::add_devfslink($prefix, "$prefix/dev/mouse") : log::l("creating $prefix/dev/mouse symlink failed");
+    symlinkf ($mouse->{device}, "$prefix/dev/mouse") ? any::add_devfslink($prefix, "$prefix/dev/mouse") : log::l("creating $prefix/dev/mouse symlink failed");
 
     if (arch() =~ /ppc/) {
 	my $s = join('',
-- 
cgit v1.2.1