diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/harddrake/sound.pm | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 9ffaf0fe0..67b51d3e1 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -190,9 +190,7 @@ sub set_pulseaudio { my ($val) = @_; my $alterative = '/etc/sound/profiles/' . ($val ? 'pulse' : 'alsa'); - if ( ! -d $alterative ) { - return; - } + return if ! -d $alterative; common::symlinkf_update_alternatives('soundprofile', $alterative); @@ -221,9 +219,7 @@ sub is_pulseaudio_glitchfree_enabled() { sub set_pulseaudio_glitchfree { my ($val) = @_; - if ( ! -f $pa_startup_scriptfile ) { - return; - } + return if ! -f $pa_startup_scriptfile; substInFile { if ($val) { @@ -239,9 +235,7 @@ my $pa_client_conffile = "$::prefix/etc/pulse/client.conf"; sub set_PA_autospan { my ($val) = @_; - if ( ! -f $pa_client_conffile ) { - return; - } + return if ! -f $pa_client_conffile; $val = 'autospawn = ' . bool2yesno($val) . "\n"; my $done; |