From 98785e3ce53ad301882cc34a84f1a6beebc1a918 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 22 May 2015 10:29:26 -0400
Subject: simplify after previous commit

---
 perl-install/harddrake/sound.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'perl-install/harddrake')

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 6858d4fe0..08475c743 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -100,7 +100,6 @@ sub config {
                         $device->{description}),
                       [ get_any_driver_entry($in, $modules_conf, $driver, $device) ]);
     } else {
-        my $new_driver = $driver;
         push @alternative, $driver;
         my %des = modules::category2modules_and_description('multimedia/sound');
         
@@ -148,7 +147,7 @@ sub config {
             },
         );
 
-        if ($new_driver eq 'unknown') {
+        if ($driver eq 'unknown') {
             if ($in->ask_from_({
                 title => N("No alternative driver"),
                 messages => N("There's no known OSS/ALSA alternative driver for your sound card (%s) which currently uses \"%s\"",
@@ -163,9 +162,8 @@ sub config {
 				    $device->{description} .
 				  "\n\n" . N("Your card uses the %s\"%s\" driver", $driver),
 				},
-                               [
-                                @common,
-                                ]))
+                               \@common,
+                                ))
         {
             $write_config->();
         }
-- 
cgit v1.2.1