From 9887fe04751edf39e8389f2c3ec3f020b5e1c17d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Jan 2001 19:34:30 +0000
Subject: keep $o->{langs} unpacked to simplify things

---
 perl-install/install_any.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 7f8383bd7..7c8cd1d1f 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -22,7 +22,6 @@ use devices;
 use fsedit;
 use modules;
 use detect_devices;
-use lang;
 use any;
 use log;
 use fs;
@@ -310,7 +309,7 @@ sub setPackages {
 	$o->{compssUsersChoice}{SYSTEM} = 1;
 	$o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}} } @{$o->{compssUsersSorted}};
 
-	foreach (@{lang::unpack_lang_codes(lang::pack_langs($o->{langs}))}) {
+	foreach (map { substr($_, 0, 2) } @{$o->{langs}}) {
 	    push @{$o->{default_packages}}, pkgs::packageByName($o->{packages}, "locales-$_") || next;
 	    $o->{compssUsersChoice}{qq(LOCALES"$_")} = 1;
 	}
-- 
cgit v1.2.1