diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-04 19:34:30 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-04 19:34:30 +0000 |
| commit | 9887fe04751edf39e8389f2c3ec3f020b5e1c17d (patch) | |
| tree | 1bccff5e0f3a44ece23808f6a5dd427f1342a434 /perl-install/install_any.pm | |
| parent | 490d1edddbdc645d015e8ad6debc72119d9de8db (diff) | |
| download | drakx-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.pm | 3 |
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; } |