diff options
| -rw-r--r-- | perl-install/modules.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index e78b3d8d4..21a54070a 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -172,8 +172,13 @@ sub add_probeall { sub remove_alias($) { my ($name) = @_; + remove_alias_regexp("^$name\$"); +} + +sub remove_alias_regexp($) { + my ($name) = @_; foreach (keys %conf) { - $conf{$_}{alias} && $conf{$_}{alias} eq $name or next; + $conf{$_}{alias} && $_ =~ qr/$name/ or next; delete $conf{$_}{alias}; return 1; } |