diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-06-24 09:28:16 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-06-24 09:28:16 +0000 |
| commit | 3cde4334c3093ff8aceea0afd4fc145d628965e0 (patch) | |
| tree | 9c9101184e8e7d4a99f395ea68a79a62a6716d21 /perl-install | |
| parent | 73f49efd8346569f115ca6ea1656fd15d4594ae3 (diff) | |
| download | drakx-3cde4334c3093ff8aceea0afd4fc145d628965e0.tar drakx-3cde4334c3093ff8aceea0afd4fc145d628965e0.tar.gz drakx-3cde4334c3093ff8aceea0afd4fc145d628965e0.tar.bz2 drakx-3cde4334c3093ff8aceea0afd4fc145d628965e0.tar.xz drakx-3cde4334c3093ff8aceea0afd4fc145d628965e0.zip | |
delete "above" lines when removing a sound alias with modules::remove_alias_regexp
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 aaaa7022e..b51fc8eec 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -209,7 +209,11 @@ sub remove_alias_regexp($) { my ($aliased) = @_; log::l(qq(removing all aliases that match "$aliased")); foreach (keys %conf) { - delete $conf{$_}{alias} if /$aliased/; + if (/$aliased/) { + my $module = $conf{$_}{alias}; + delete $conf{$module}{above} if $module =~ /^snd-/; + delete $conf{$_}{alias}; + } } } |