From 7fbfd48f4107df099475128f90b597b36641c2d2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 18 Nov 2003 14:37:50 +0000
Subject: try replacing __LANG__ with fr_FR (same for other langs) then with fr
 (same for other langs) in always_i18n file list

---
 move/make_live_tree_boot | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'move/make_live_tree_boot')

diff --git a/move/make_live_tree_boot b/move/make_live_tree_boot
index 379f60c8d..b31cecfa2 100755
--- a/move/make_live_tree_boot
+++ b/move/make_live_tree_boot
@@ -1,6 +1,8 @@
 #!/usr/bin/perl
 
-use MDK::Common;
+use lib qw(../perl-install);
+use common;
+use lang;
 
 my $prefix = '/tmp/live_tree';
 my @ALLOWED_LANGS = split(' ', first(cat_('move.pm') =~ /ALLOWED_LANGS = qw\((.*)\)/));
@@ -127,9 +129,15 @@ if (!@ARGV) {
     create_light_tree('boot', \@boot_list);    
     create_light_tree('totem', \@totem_list);    
     foreach my $lang (@ALLOWED_LANGS) {
+	my $full_lang = lang::l2locale($lang);
+	my ($short_lang) = $full_lang =~ /(..)/;
 	my @list = map { 
 	    my $s = $_;
-	    $s =~ s/__LANG__/$lang/;
+	    $s =~ s/__LANG__/$full_lang/;
+	    if (! -e $s) {
+		$s = $_;
+		$s =~ s/__LANG__/$short_lang/;
+	    }
 	    if (readlink($s) =~ m!^[^/]!) {
 		system('cp', $s, "$s-");
 		rename "$s-", $s;
-- 
cgit v1.2.1