From 921010e675eaebd97ed12f7926529dd44c271104 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 24 Jun 2004 08:43:25 +0000
Subject: in modules::when_load, try to find the best sound slot index instead
 of always overwritting sound-slot-0 (#7890)

---
 perl-install/modules.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/modules.pm')

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