summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-27 12:27:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-27 12:27:04 +0000
commite4ec66d3ef1c53863ec15f509b54da117a6bb69e (patch)
tree422099107712e3e4b777014331892f27a94895d6
parentc543b7191d77e810ad191b16ec8282986f5f8766 (diff)
downloaddrakx-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.pm6
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));