From caf582ad5764362b3d349550d6a0c0162dfe05f9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 8 Dec 2003 15:15:56 +0000
Subject: (remove_alias_regexp_byname) introduce it; works the same as
 remove_alias_regexp but matches alias name instead of value

---
 perl-install/modules.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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/;
     }
 }
 
-- 
cgit v1.2.1