summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-08 01:13:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-08 01:13:26 +0000
commit0dbe0e74dd84b15f5949035455e3ef1fa568b728 (patch)
tree6a5df21b523f441cb84c64f03212ad2aadcb450b /perl-install/modules.pm
parentdffe87f685d27cae50f902f43ab5eae7c893549f (diff)
downloaddrakx-0dbe0e74dd84b15f5949035455e3ef1fa568b728.tar
drakx-0dbe0e74dd84b15f5949035455e3ef1fa568b728.tar.gz
drakx-0dbe0e74dd84b15f5949035455e3ef1fa568b728.tar.bz2
drakx-0dbe0e74dd84b15f5949035455e3ef1fa568b728.tar.xz
drakx-0dbe0e74dd84b15f5949035455e3ef1fa568b728.zip
don't remove "above ... snd-pcm-oss" for the old alias, it's better done explictly, and already done by remove_module()
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm6
1 files changed, 1 insertions, 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/;
}
}