From 9c488e1ab2c67231c196a709808445d204918748 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 9 Mar 2001 00:25:41 +0000 Subject: (setPackages): set compssUsersChoice LOCALES"*" --- perl-install/install_any.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 3686893b8..dd3c5431d 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -328,9 +328,10 @@ sub setPackages { foreach (map { substr($_, 0, 2) } lang::langs($o->{langs})) { pkgs::packageByName($o->{packages}, "locales-$_") or next; push @{$o->{default_packages}}, "locales-$_"; + } + foreach (lang::langs($o->{langs})) { $o->{compssUsersChoice}{qq(LOCALES"$_")} = 1; } - #- for the first time, select package to upgrade. #- TOCHECK this may not be the best place for that as package are selected at some other point. $o->selectPackagesToUpgrade if $o->{isUpgrade}; -- cgit v1.2.1