From 459eedd7dc7ef289f379d2fc1dc691a057d1e144 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Nov 2004 13:25:45 +0000
Subject: remove some unneeded ";", add some for normalization (as told by
 perl_checker)

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

(limited to 'perl-install/harddrake/sound.pm')

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 9fe403f41..9b675b3d9 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -204,7 +204,7 @@ sub switch {
     foreach (@blacklist) { $blacklisted = 1 if $driver eq $_ }
     my @alternative = @{get_alternative($driver)};
     unless ($driver eq $device->{driver} || member($device->{driver}, @alternative)) {
-	push @alternative, @{get_alternative($device->{driver})}, $device->{driver}
+	push @alternative, @{get_alternative($device->{driver})}, $device->{driver};
     }
     if (@alternative) {
         my $new_driver = $driver;
@@ -331,7 +331,7 @@ The current driver for your \"%s\" sound card is \"%s\" ", $device->{description
                 goto end;
             }
         }
-    }
+    };
 }
 
 
-- 
cgit v1.2.1