summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/harddrake')
-rw-r--r--perl-install/harddrake/sound.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 7fc50d0ae..3bdfb7697 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -2,7 +2,7 @@ package harddrake::sound;
# lists filled with Danny Tholen help, enhanced by Thierry Vignaud
#
# No ALSA for OSS's
-# o btaudio (tv card),
+# o tv cards: btaudio,
# o isa cards: msnd_pinnacle, pas2,
# No OSS for ALSA's
# o pci cards: snd-ali5451, snd-als4000, snd-es968, snd-fm801,
@@ -123,7 +123,7 @@ sub get_alternative {
$alsa2oss{$driver};
} elsif ($oss2alsa{$driver}) {
$oss2alsa{$driver}
- } else { {} }
+ } else { undef }
}
sub do_switch {
@@ -133,7 +133,7 @@ sub do_switch {
run_program::run("service alsa stop") if $old_driver =~ /^snd-/;
modules::unload($old_driver); # run_program("/sbin/modprobe -r $driver"); # just in case ...
modules::remove_module($old_driver); # completed by the next add_alias()
- modules::add_alias('sound-slot-$::i', $new_driver);
+ modules::add_alias("sound-slot-$::i", $new_driver);
modules::write_conf;
if ($new_driver =~ /^snd-/) {
run_program::run("service alsa start");
@@ -162,7 +162,7 @@ sub switch {
[
{ label => _("Driver :"), val => \$new_driver, list => $alternative, default => $new_driver, sort =>1, format => sub {
my %des = modules::category2modules_and_description('multimedia/sound');
- "$_[0] (". $des{$_[0]};
+ "$_[0] (". $des{$_[0]} . ')'
}, allow_empty_list => 1 }
]))
{
@@ -187,5 +187,4 @@ with subject: unlisted sound driver")
sub config {
my ($in, $device) = @_;
switch($in, $device);
-
}