(remove_alias_regexp_byname) introduce it; works the same as

remove_alias_regexp but matches alias name instead of value

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/;
     }
 }