From 1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Oct 2004 06:04:22 +0000
Subject: cleanup thanks to perl_checker

---
 perl-install/standalone/harddrake2 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/harddrake2')

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 = $_;
-- 
cgit v1.2.1