From cddfb9441a8809fe5f72493230cb5748e5d747a2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 6 Nov 2003 18:08:13 +0000
Subject: (remove_alias_regexp) simplify

---
 perl-install/modules.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install/modules.pm')

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 0f800b793..e913e9f0f 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -178,11 +178,8 @@ sub remove_alias($) {
 sub remove_alias_regexp($) {
     my ($name) = @_;
     foreach (keys %conf) {
-	$conf{$_}{alias} && $_ =~ /$name/ or next;
-	delete $conf{$_}{alias};
-	return 1;
+        delete $conf{$_}{alias} if /$name/;
     }
-    0;
 }
 
 sub remove_module($) {
-- 
cgit v1.2.1