diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-10-14 06:04:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-10-14 06:04:22 +0000 |
| commit | 1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7 (patch) | |
| tree | 4845a85817ba78016067dd6dfc33b1ad7f11e6d2 /perl-install/standalone/harddrake2 | |
| parent | 203185d0228bd8bcb607f677d9880aa833406dce (diff) | |
| download | drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.tar drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.tar.gz drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.tar.bz2 drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.tar.xz drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.zip | |
cleanup thanks to perl_checker
Diffstat (limited to 'perl-install/standalone/harddrake2')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 5 |
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 = $_; |