summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-06 18:08:13 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-06 18:08:13 +0000
commitcddfb9441a8809fe5f72493230cb5748e5d747a2 (patch)
treec5d6f6048b23266e3a46a3b147e89c70bbf4f536
parentbe55ad3751b24871a6849ad164646ab59dee23e3 (diff)
downloaddrakx-backup-do-not-use-cddfb9441a8809fe5f72493230cb5748e5d747a2.tar
drakx-backup-do-not-use-cddfb9441a8809fe5f72493230cb5748e5d747a2.tar.gz
drakx-backup-do-not-use-cddfb9441a8809fe5f72493230cb5748e5d747a2.tar.bz2
drakx-backup-do-not-use-cddfb9441a8809fe5f72493230cb5748e5d747a2.tar.xz
drakx-backup-do-not-use-cddfb9441a8809fe5f72493230cb5748e5d747a2.zip
(remove_alias_regexp) simplify
-rw-r--r--perl-install/modules.pm5
1 files changed, 1 insertions, 4 deletions
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($) {