From b20f3f94b466e1271860d83b00d2f28ded6d056f Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 24 Jun 2004 10:05:27 +0000
Subject: perl_checker compliance

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

(limited to 'perl-install')

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 1f69c86cc..8f4c52d79 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -439,7 +439,7 @@ sub when_load {
 	    eval { load('sd_mod') };
 	}
         if ($category =~ /sound/) {
-            my $sound_alias = find { /^sound-slot-[0-9]+$/ and $conf{$_}{alias} eq $name } keys %conf;
+            my $sound_alias = find { /^sound-slot-[0-9]+$/ && $conf{$_}{alias} eq $name } keys %conf;
             $sound_alias ||= 'sound-slot-0';
             add_alias($sound_alias, $name);
         }
-- 
cgit v1.2.1