From 787a4746800e537a8301909a482e818f4532ac3e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 19 Mar 2004 08:46:52 +0000
Subject: (switch) perl_checker fix

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

(limited to 'perl-install/harddrake')

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 1fae6f354..9796e7e7f 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -174,7 +174,7 @@ sub switch {
 
     foreach (@blacklist) { $blacklisted = 1 if $driver eq $_ }
     my @alternative = @{get_alternative($driver)};
-    unless ($driver eq $device->{driver} or member($device->{driver}, @alternative)) {
+    unless ($driver eq $device->{driver} || member($device->{driver}, @alternative)) {
 	push @alternative, @{get_alternative($device->{driver})}, $device->{driver}
     }
     if (@alternative) {
-- 
cgit v1.2.1