diff options
| -rw-r--r-- | perl-install/lang.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index db2457941..155aa9b21 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -301,10 +301,14 @@ sub set { } } +sub langs { + my ($l) = @_; + grep { $l->{$_} } keys %$l; +} + sub pack_langs { my ($l) = @_; - member('all', @$l) ? 'all' : - join ':', uniq(map { $languages{$_}[3] } @$l); + $l->{all} ? 'all' : join ':', uniq(map { $languages{$_}[3] } langs($l)); } sub write_langs { |