diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-07-08 01:13:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-07-08 01:13:26 +0000 |
| commit | 0dbe0e74dd84b15f5949035455e3ef1fa568b728 (patch) | |
| tree | 6a5df21b523f441cb84c64f03212ad2aadcb450b | |
| parent | dffe87f685d27cae50f902f43ab5eae7c893549f (diff) | |
| download | drakx-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()
| -rw-r--r-- | perl-install/modules.pm | 6 |
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/; } } |