From 07ed1a6e5a15d57b47f4e32fc85d37d3ce019592 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Jan 2001 23:33:23 +0000
Subject: (langs): created (transform the $o->{langs} hash ref in a list)
 (pack_langs): use lang::langs

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

(limited to 'perl-install')

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