From 16af9628dc9ba7a8b32aae17c70c60c3d76a7bc4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 29 Nov 2013 09:31:24 +0100
Subject: simplify

---
 perl-install/harddrake/sound.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install/harddrake')

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 6a48c302e..c24e84fd7 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -128,10 +128,7 @@ sub switch {
     my ($in, $modules_conf, $device) = @_;
     my $driver = $device->{current_driver} || $device->{driver};
 
-    my @alternative;
-    if ($driver ne $device->{driver}) {
-	push @alternative, $device->{driver};
-    }
+    my @alternative = $driver ne $device->{driver} ? $device->{driver} : ();
     if (@alternative) {
         my $new_driver = $driver;
         push @alternative, $driver;
-- 
cgit v1.2.1