diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 23:33:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 23:33:23 +0000 |
| commit | 07ed1a6e5a15d57b47f4e32fc85d37d3ce019592 (patch) | |
| tree | 9b3e9777acb5ad0dd242f0492100014bb190a96e | |
| parent | 42e7b3f9097c8a13ca8d9e79723a43bce29a224b (diff) | |
| download | drakx-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.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 { |