From e4ec66d3ef1c53863ec15f509b54da117a6bb69e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 27 Mar 2001 12:27:04 +0000
Subject: (langsLANGUAGE): give the list of languages

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

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 298d4fc74..abdab134a 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -339,6 +339,12 @@ sub langs {
     grep { $l->{$_} } keys %$l;
 }
 
+sub langsLANGUAGE {
+    my ($l) = @_;
+    my @l = $l->{all} ? list() : langs($l);
+    uniq(map { split ':', $languages{$_}[3] } @l);
+}
+
 sub pack_langs { 
     my ($l) = @_; 
     $l->{all} ? 'all' : join ':', uniq(map { $languages{$_}[3] } langs($l));
-- 
cgit v1.2.1