summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-08 15:15:56 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-08 15:15:56 +0000
commitcaf582ad5764362b3d349550d6a0c0162dfe05f9 (patch)
tree1408a4fbb85f98611a0d507c8c92e9d4b83e1e3f
parenteeddd27e53b9865502f683bb9a6679962a8a7817 (diff)
downloaddrakx-backup-do-not-use-caf582ad5764362b3d349550d6a0c0162dfe05f9.tar
drakx-backup-do-not-use-caf582ad5764362b3d349550d6a0c0162dfe05f9.tar.gz
drakx-backup-do-not-use-caf582ad5764362b3d349550d6a0c0162dfe05f9.tar.bz2
drakx-backup-do-not-use-caf582ad5764362b3d349550d6a0c0162dfe05f9.tar.xz
drakx-backup-do-not-use-caf582ad5764362b3d349550d6a0c0162dfe05f9.zip
(remove_alias_regexp_byname) introduce it; works the same as
remove_alias_regexp but matches alias name instead of value
-rw-r--r--perl-install/modules.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index f03fdf710..37efa5aca 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -176,9 +176,16 @@ sub remove_alias($) {
}
sub remove_alias_regexp($) {
+ my ($aliased) = @_;
+ foreach (keys %conf) {
+ delete $conf{$_}{alias} if /$aliased/;
+ }
+}
+
+sub remove_alias_regexp_byname($) {
my ($name) = @_;
foreach (keys %conf) {
- delete $conf{$_}{alias} if /$name/;
+ delete $conf{$_} if /$name/;
}
}