summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake/sound.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-23 14:04:03 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-23 14:04:03 +0000
commitd32d4007e1deca2fde89dfe7abc71e521570414a (patch)
treef98b0cea5c9eb26f2008e7e2976ea4e5400584f4 /perl-install/harddrake/sound.pm
parenta2692b556d850d09d0f8662cac6f60a9deca49f1 (diff)
downloaddrakx-d32d4007e1deca2fde89dfe7abc71e521570414a.tar
drakx-d32d4007e1deca2fde89dfe7abc71e521570414a.tar.gz
drakx-d32d4007e1deca2fde89dfe7abc71e521570414a.tar.bz2
drakx-d32d4007e1deca2fde89dfe7abc71e521570414a.tar.xz
drakx-d32d4007e1deca2fde89dfe7abc71e521570414a.zip
use right sound-slot
Diffstat (limited to 'perl-install/harddrake/sound.pm')
-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);
-
}