From bcec1ffee9cba962ebf17be8094045a58bca4680 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 12 Sep 2007 12:17:53 +0000 Subject: simplify now that alternatives are an array and not an array ref --- perl-install/standalone/harddrake2 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/harddrake2') diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 23a3049d4..797403e5e 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -425,8 +425,8 @@ foreach (@classes) { $configurator .= harddrake::data::set_removable_configurator($Ident, $_); if ($Ident eq "AUDIO") { require harddrake::sound; - my $alter = harddrake::sound::get_alternative($_->{driver}); - if (my $alternative_drivers = $alter->[0] ne 'unknown' && join(', ', @$alter)) { + my @alter = harddrake::sound::get_alternative($_->{driver}); + if (my $alternative_drivers = join(', ', @alter)) { $_->{alternative_drivers} = $alternative_drivers; } } -- cgit v1.2.1