diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-25 17:52:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-25 17:52:01 +0000 |
| commit | 307e05ee53ac840106659e71d751e0603175b028 (patch) | |
| tree | ca74a01e7bb3ef02861a7a02c9df45423a2de7ae /perl-install | |
| parent | 608b3965cb6dda8a08446b562d19e30e2a41f21f (diff) | |
| download | drakx-307e05ee53ac840106659e71d751e0603175b028.tar drakx-307e05ee53ac840106659e71d751e0603175b028.tar.gz drakx-307e05ee53ac840106659e71d751e0603175b028.tar.bz2 drakx-307e05ee53ac840106659e71d751e0603175b028.tar.xz drakx-307e05ee53ac840106659e71d751e0603175b028.zip | |
fix handling of "all" languages selected
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/lang.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 083787cd7..82a3843bb 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -619,13 +619,12 @@ sub set { sub langs { my ($l) = @_; - grep { $l->{$_} } keys %$l; + $l->{all} ? list() : grep { $l->{$_} } keys %$l; } sub langsLANGUAGE { my ($l) = @_; - my @l = $l->{all} ? list() : langs($l); - uniq(map { split ':', lang2LANGUAGE($_) } @l); + uniq(map { split ':', lang2LANGUAGE($_) } langs($l)); } sub pack_langs { |