diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-27 12:27:04 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-27 12:27:04 +0000 |
| commit | e4ec66d3ef1c53863ec15f509b54da117a6bb69e (patch) | |
| tree | 422099107712e3e4b777014331892f27a94895d6 | |
| parent | c543b7191d77e810ad191b16ec8282986f5f8766 (diff) | |
| download | drakx-backup-do-not-use-e4ec66d3ef1c53863ec15f509b54da117a6bb69e.tar drakx-backup-do-not-use-e4ec66d3ef1c53863ec15f509b54da117a6bb69e.tar.gz drakx-backup-do-not-use-e4ec66d3ef1c53863ec15f509b54da117a6bb69e.tar.bz2 drakx-backup-do-not-use-e4ec66d3ef1c53863ec15f509b54da117a6bb69e.tar.xz drakx-backup-do-not-use-e4ec66d3ef1c53863ec15f509b54da117a6bb69e.zip | |
(langsLANGUAGE): give the list of languages
| -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)); |