summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/harddrake2
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/harddrake2')
-rwxr-xr-xperl-install/standalone/harddrake25
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index f9506bbc6..4c854211e 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -393,8 +393,9 @@ foreach (@classes) {
if ($Ident eq "AUDIO") {
require harddrake::sound;
my $alter = harddrake::sound::get_alternative($_->{driver});
- my $alternative_drivers = join(', ', @$alter) if $alter->[0] ne 'unknown';
- $_->{alternative_drivers} = $alternative_drivers if $alternative_drivers;
+ if (my $alternative_drivers = $alter->[0] ne 'unknown' && join(', ', @$alter)) {
+ $_->{alternative_drivers} = $alternative_drivers;
+ }
}
if ($Ident eq "HARDDISK") {
my $hd = $_;