summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-09 23:33:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-09 23:33:23 +0000
commit07ed1a6e5a15d57b47f4e32fc85d37d3ce019592 (patch)
tree9b3e9777acb5ad0dd242f0492100014bb190a96e
parent42e7b3f9097c8a13ca8d9e79723a43bce29a224b (diff)
downloaddrakx-07ed1a6e5a15d57b47f4e32fc85d37d3ce019592.tar
drakx-07ed1a6e5a15d57b47f4e32fc85d37d3ce019592.tar.gz
drakx-07ed1a6e5a15d57b47f4e32fc85d37d3ce019592.tar.bz2
drakx-07ed1a6e5a15d57b47f4e32fc85d37d3ce019592.tar.xz
drakx-07ed1a6e5a15d57b47f4e32fc85d37d3ce019592.zip
(langs): created (transform the $o->{langs} hash ref in a list)
(pack_langs): use lang::langs
-rw-r--r--perl-install/lang.pm8
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 {