diff options
| -rw-r--r-- | perl-install/lang.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 298d4fc74..abdab134a 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -339,6 +339,12 @@ sub langs { grep { $l->{$_} } keys %$l; } +sub langsLANGUAGE { + my ($l) = @_; + my @l = $l->{all} ? list() : langs($l); + uniq(map { split ':', $languages{$_}[3] } @l); +} + sub pack_langs { my ($l) = @_; $l->{all} ? 'all' : join ':', uniq(map { $languages{$_}[3] } langs($l)); |