From 0dbe0e74dd84b15f5949035455e3ef1fa568b728 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jul 2004 01:13:26 +0000
Subject: don't remove "above ... snd-pcm-oss" for the old alias, it's better
 done explictly, and already done by remove_module()

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 86fa1840e..dc71ad5e1 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -207,11 +207,7 @@ sub remove_alias_regexp {
     my ($aliased) = @_;
     log::l(qq(removing all aliases that match "$aliased"));
     foreach (keys %conf) {
-        if (/$aliased/) {
-            my $module = $conf{$_}{alias};
-            delete $conf{$module}{above} if $module =~ /^snd-/;
-            delete $conf{$_}{alias};
-        }
+        delete $conf{$_}{alias} if /$aliased/;
     }
 }
 
-- 
cgit v1.2.1