summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-20 10:07:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-20 10:07:16 +0000
commitd5b1390bf57fe840339862637f0ed88438eab8a5 (patch)
tree72539444744d6a57c5d3bbd6aa520b932df2c51f /perl-install
parente46e72a6a7327a4e5dfd4d4f5f9fb84ebce177ba (diff)
downloaddrakx-d5b1390bf57fe840339862637f0ed88438eab8a5.tar
drakx-d5b1390bf57fe840339862637f0ed88438eab8a5.tar.gz
drakx-d5b1390bf57fe840339862637f0ed88438eab8a5.tar.bz2
drakx-d5b1390bf57fe840339862637f0ed88438eab8a5.tar.xz
drakx-d5b1390bf57fe840339862637f0ed88438eab8a5.zip
devfssymlinkf doesn't have any return value, so don't check it
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm4
-rw-r--r--perl-install/mouse.pm4
2 files changed, 3 insertions, 5 deletions
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('',