diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-23 14:04:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-23 14:04:03 +0000 |
| commit | d32d4007e1deca2fde89dfe7abc71e521570414a (patch) | |
| tree | f98b0cea5c9eb26f2008e7e2976ea4e5400584f4 /perl-install | |
| parent | a2692b556d850d09d0f8662cac6f60a9deca49f1 (diff) | |
| download | drakx-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.pm | 9 | ||||
| -rwxr-xr-x | perl-install/standalone/draksound | 6 |
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 { |