From a117445ee6c9611403e523fa212399101e93fc16 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 19 Sep 2000 22:50:49 +0000
Subject: no_comment

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

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 6b5498025..9f250bcdf 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -283,6 +283,14 @@ sub set_langs {
     log::l("RPM_INSTALL_LANG: $ENV{RPM_INSTALL_LANG}");
 }
 
+sub get_langs {
+    [ 
+     $ENV{RPM_INSTALL_LANG} eq 'all' ?
+     map { substr($_->[2], 0, 2) } values %languages :
+     split(':', $ENV{RPM_INSTALL_LANG})
+    ];
+}
+
 sub write { 
     my ($prefix) = @_;
     my $lang = $ENV{LC_ALL};
-- 
cgit v1.2.1