diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-20 10:07:16 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-20 10:07:16 +0000 |
commit | d5b1390bf57fe840339862637f0ed88438eab8a5 (patch) | |
tree | 72539444744d6a57c5d3bbd6aa520b932df2c51f | |
parent | e46e72a6a7327a4e5dfd4d4f5f9fb84ebce177ba (diff) | |
download | drakx-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
-rw-r--r-- | perl-install/any.pm | 4 | ||||
-rw-r--r-- | perl-install/mouse.pm | 4 |
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('', |