diff options
| -rw-r--r-- | perl-install/lang.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 083787cd7..82a3843bb 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -619,13 +619,12 @@ sub set { sub langs { my ($l) = @_; - grep { $l->{$_} } keys %$l; + $l->{all} ? list() : grep { $l->{$_} } keys %$l; } sub langsLANGUAGE { my ($l) = @_; - my @l = $l->{all} ? list() : langs($l); - uniq(map { split ':', lang2LANGUAGE($_) } @l); + uniq(map { split ':', lang2LANGUAGE($_) } langs($l)); } sub pack_langs { |