diff options
| -rw-r--r-- | perl-install/modules.pm | 5 |
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($) { |