From 917ac587c5de1f9caaaf112c3b0e58edf4482aeb Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 12 Aug 2004 08:55:30 +0000
Subject: revived, still needed since installer can't make symlinks on
 read-only stage2, and we can't easily workaround it by modifying LC_*
 variables

---
 perl-install/share/gen_locales.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 perl-install/share/gen_locales.pl

diff --git a/perl-install/share/gen_locales.pl b/perl-install/share/gen_locales.pl
new file mode 100644
index 000000000..fcc03f0c9
--- /dev/null
+++ b/perl-install/share/gen_locales.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use MDK::Common;
+use lang;
+
+foreach (lang::list_langs()) {
+    if (my $exist = readlink "usr/share/locale/$_") {
+	die "symlink $_ already exist and is $exist\n";
+    } else {
+	symlink "en_US.UTF-8", "usr/share/locale/$_" or die "can't create symlink $_";
+    }
+}
-- 
cgit v1.2.1