From 80b6b5d6cbcc7157abfcda55226c6b3a30766ebe Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 17 Mar 2004 18:05:23 +0000 Subject: do not alter oss<->alsa drivers mapping table (olivier blin, #8501) --- perl-install/harddrake/sound.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'perl-install/harddrake') diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 641b94457..1f1470dec 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -172,13 +172,13 @@ sub switch { my $driver = $device->{current_driver} || $device->{driver}; foreach (@blacklist) { $blacklisted = 1 if $driver eq $_ } - my $alternative = get_alternative($driver); - unless ($driver eq $device->{driver} or member($device->{driver}, @$alternative)) { - push @$alternative, @{get_alternative($device->{driver})}, $device->{driver} + my @alternative = @{get_alternative($driver)}; + unless ($driver eq $device->{driver} or member($device->{driver}, @alternative)) { + push @alternative, @{get_alternative($device->{driver})}, $device->{driver} } - if ($alternative) { + if (@alternative) { my $new_driver = $driver; - push @$alternative, $driver; + push @alternative, $driver; my %des = modules::category2modules_and_description('multimedia/sound'); if ($new_driver eq 'unknown') { @@ -209,8 +209,8 @@ To use alsa, one can either use: }, [ { - label => N("Driver:"), val => \$new_driver, list => $alternative, default => $new_driver, sort =>1, - help => join("\n\n", map { qq("$_": ) . $des{$_} } @$alternative), + label => N("Driver:"), val => \$new_driver, list => \@alternative, default => $new_driver, sort =>1, + help => join("\n\n", map { qq("$_": ) . $des{$_} } @alternative), allow_empty_list => 1, }, { -- cgit v1.2.1