summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-04 19:34:30 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-04 19:34:30 +0000
commit9887fe04751edf39e8389f2c3ec3f020b5e1c17d (patch)
tree1bccff5e0f3a44ece23808f6a5dd427f1342a434 /perl-install/install_any.pm
parent490d1edddbdc645d015e8ad6debc72119d9de8db (diff)
downloaddrakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.tar
drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.tar.gz
drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.tar.bz2
drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.tar.xz
drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.zip
keep $o->{langs} unpacked to simplify things
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm3
1 files changed, 1 insertions, 2 deletions
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;
}