From a45e4819dc25d2bdcd2d2b9bc1b8a2e7522ef65e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 27 Feb 2003 13:51:59 +0000
Subject: have locales-xx first in default_packages so that default choosing
 based on locales works for packages in default_packages

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

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 2b840b6d0..b29cf48b5 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -394,10 +394,10 @@ sub setDefaultPackages {
 
     foreach (lang::langs($o->{locale}{langs})) {
 	pkgs::packageByName($o->{packages}, "locales-$_") or next;
-	push @{$o->{default_packages}}, "locales-$_";
+	unshift @{$o->{default_packages}}, "locales-$_";
 	$o->{compssUsersChoice}{qq(LOCALES"$_")} = 1; #- mainly for zh in case of zh_TW.Big5
     }
-    push @{$o->{default_packages}}, 'locales-' . substr(lang::c2locale($o->{locale}{country}), 0, 2);
+    unshift @{$o->{default_packages}}, 'locales-' . substr(lang::c2locale($o->{locale}{country}), 0, 2);
     foreach (lang::langsLANGUAGE($o->{locale}{langs})) {
 	$o->{compssUsersChoice}{qq(LOCALES"$_")} = 1;
     }
-- 
cgit v1.2.1