From db2cd05de49fe5a9d8e9f6148487bce93a9209ee Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 27 Aug 2001 17:17:52 +0000
Subject: make it compile

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

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 661c32291..106270a38 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -13,6 +13,7 @@ use run_program;
 use devices;
 use commands;
 use modules;
+use any;
 use log;
 
 my @mouses_fields = qw(nbuttons MOUSETYPE XMOUSETYPE name);
@@ -181,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" ? 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