diff options
author | Francois Pons <fpons@mandriva.com> | 2001-02-07 17:17:07 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2001-02-07 17:17:07 +0000 |
commit | 0e7736e6833b2b692dec32a13b8f8493821f5534 (patch) | |
tree | b33ce86a60a31f8eb039587a28e2acc1e89b4028 /perl-install | |
parent | 19b70bd0538e2dae570096b24e8a3336b4f462b4 (diff) | |
download | drakx-0e7736e6833b2b692dec32a13b8f8493821f5534.tar drakx-0e7736e6833b2b692dec32a13b8f8493821f5534.tar.gz drakx-0e7736e6833b2b692dec32a13b8f8493821f5534.tar.bz2 drakx-0e7736e6833b2b692dec32a13b8f8493821f5534.tar.xz drakx-0e7736e6833b2b692dec32a13b8f8493821f5534.zip |
fixed unknown package ARRAY... and locales selection according to langs.
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install_any.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index e2089b2aa..1094d82a1 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -311,7 +311,8 @@ sub setPackages { $o->{compssUsersChoice}{SYSTEM} = 1; foreach (map { substr($_, 0, 2) } lang::langs($o->{langs})) { - push @{$o->{default_packages}}, pkgs::packageByName($o->{packages}, "locales-$_") || next; + pkgs::packageByName($o->{packages}, "locales-$_") or next; + push @{$o->{default_packages}}, "locales-$_"; $o->{compssUsersChoice}{qq(LOCALES"$_")} = 1; } |