From d5b1390bf57fe840339862637f0ed88438eab8a5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 20 Jul 2002 10:07:16 +0000
Subject: devfssymlinkf doesn't have any return value, so don't check it

---
 perl-install/any.pm   | 4 +---
 perl-install/mouse.pm | 4 ++--
 2 files changed, 3 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 5bb72c94b..0cf943425 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -444,9 +444,7 @@ sub pppConfig {
     my ($in, $modem, $prefix) = @_;
     $modem or return;
 
-    if ($modem->{device} ne "/dev/modem") {
-	devfssymlinkf($modem, 'modem', $prefix) or log::l("creation of $prefix/dev/modem failed")
-    }
+    devfssymlinkf($modem, 'modem', $prefix) if $modem->{device} ne "/dev/modem";
     $in->do_pkgs->install('ppp') if !$::testing;
 
     my %toreplace;
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index db5914ff3..b91234301 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -203,8 +203,8 @@ 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));
-    any::devfssymlinkf($mouse, 'mouse', $prefix) or log::l("creating $prefix/dev/mouse symlink failed");
-    $mouse->{auxmouse} and any::devfssymlinkf($mouse->{auxmouse}, 'mouse1', $prefix) or log::l("creating $prefix/dev/mouse1 symlink failed");
+    any::devfssymlinkf($mouse, 'mouse', $prefix);
+    any::devfssymlinkf($mouse->{auxmouse}, 'mouse1', $prefix) if $mouse->{auxmouse};
 
     if (arch() =~ /ppc/) {
 	my $s = join('',
-- 
cgit v1.2.1