diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-06-24 08:43:25 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-06-24 08:43:25 +0000 |
| commit | 921010e675eaebd97ed12f7926529dd44c271104 (patch) | |
| tree | 594502c7ec0ee8f1909765b082ea345b979ca57d /perl-install | |
| parent | 4314301581699eddbde71492da375f0cee70fcc4 (diff) | |
| download | drakx-921010e675eaebd97ed12f7926529dd44c271104.tar drakx-921010e675eaebd97ed12f7926529dd44c271104.tar.gz drakx-921010e675eaebd97ed12f7926529dd44c271104.tar.bz2 drakx-921010e675eaebd97ed12f7926529dd44c271104.tar.xz drakx-921010e675eaebd97ed12f7926529dd44c271104.zip | |
in modules::when_load, try to find the best sound slot index instead of always overwritting sound-slot-0 (#7890)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/modules.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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); + } } } |