diff options
| -rw-r--r-- | perl-install/modules.pm | 9 |
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/; } } |