summaryrefslogtreecommitdiffstats
path: root/perl-install
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
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')
-rw-r--r--perl-install/harddrake/sound.pm9
-rwxr-xr-xperl-install/standalone/draksound6
2 files changed, 8 insertions, 7 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);
-
}
diff --git a/perl-install/standalone/draksound b/perl-install/standalone/draksound
index 319c6381a..88f8e99c3 100755
--- a/perl-install/standalone/draksound
+++ b/perl-install/standalone/draksound
@@ -36,8 +36,10 @@ my @devices = grep { $_->{media_type} eq 'MULTIMEDIA_AUDIO' } detect_devices::pr
if (@devices) {
# TODO: That need some work for multiples sound cards
map_index {
- # allocate sound-slot in the same order as install2.pm $device->{driver} with the right sound-slot-XX
- $_->{driver} = modules::get_alias("sound-slot-$::i");
+ # allocate sound-slot in the same order as install2.pm
+ # fill $device->{driver} with the right sound-slot-XX or default driver if missing sound-slot [real fix'll be in harddrake service]
+ my $driver = modules::get_alias("sound-slot-$::i");
+ $_->{driver} = $driver if $driver;
harddrake::sound::config($in, $_);
} modules::probe_category('multimedia/sound');
} else {