From 12e2b5c87a379eec81c5e2d80b67493689691082 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 19:24:03 +0000
Subject: make perl_checker happy

---
 perl-install/harddrake/sound.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index a1da2d25f..48e8ffbff 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -158,7 +158,7 @@ sub do_switch {
 sub switch {
     my ($in, $device) = @_;
     my $driver = $device->{current_driver};
-    $driver = $device->{driver} unless $driver;
+    $driver ||= $device->{driver};
 
     foreach (@blacklist) { $blacklisted = 1 if $driver eq $_ }
     my $alternative = get_alternative($driver);
-- 
cgit v1.2.1