diff options
Diffstat (limited to 'perl-install')
| -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('', |