diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-06 18:08:13 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-06 18:08:13 +0000 |
| commit | cddfb9441a8809fe5f72493230cb5748e5d747a2 (patch) | |
| tree | c5d6f6048b23266e3a46a3b147e89c70bbf4f536 /perl-install/modules.pm | |
| parent | be55ad3751b24871a6849ad164646ab59dee23e3 (diff) | |
| download | drakx-cddfb9441a8809fe5f72493230cb5748e5d747a2.tar drakx-cddfb9441a8809fe5f72493230cb5748e5d747a2.tar.gz drakx-cddfb9441a8809fe5f72493230cb5748e5d747a2.tar.bz2 drakx-cddfb9441a8809fe5f72493230cb5748e5d747a2.tar.xz drakx-cddfb9441a8809fe5f72493230cb5748e5d747a2.zip | |
(remove_alias_regexp) simplify
Diffstat (limited to 'perl-install/modules.pm')
| -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($) { |