From abcfdced956bd05ce2df79cc1f483b6e5019323c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 24 Jun 2004 09:09:00 +0000
Subject: fix stupid typo

---
 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 929399c15..aaaa7022e 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -434,7 +434,7 @@ sub when_load {
 	    eval { load('sd_mod') };
 	}
         if ($category =~ /sound/) {
-            my $sound_alias = find { /^sound-slot-[0-9]+$/ and $conf{$_}{alias} eq $module } keys %conf;
+            my $sound_alias = find { /^sound-slot-[0-9]+$/ and $conf{$_}{alias} eq $name } keys %conf;
             $sound_alias ||= 'sound-slot-0';
             add_alias($sound_alias, $name);
         }
-- 
cgit v1.2.1