From 307e05ee53ac840106659e71d751e0603175b028 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 25 Nov 2002 17:52:01 +0000
Subject: fix handling of "all" languages selected

---
 perl-install/lang.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install/lang.pm')

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 { 
-- 
cgit v1.2.1