summaryrefslogtreecommitdiffstats
path: root/perl-install/share/gen_locales.pl
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-12 08:55:30 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-12 08:55:30 +0000
commit917ac587c5de1f9caaaf112c3b0e58edf4482aeb (patch)
treefccb7c873bf8843765c441c013bea8a359fbad85 /perl-install/share/gen_locales.pl
parentb81e436c63f57efed51fd85d8cf3c9b0bf1baea2 (diff)
downloaddrakx-917ac587c5de1f9caaaf112c3b0e58edf4482aeb.tar
drakx-917ac587c5de1f9caaaf112c3b0e58edf4482aeb.tar.gz
drakx-917ac587c5de1f9caaaf112c3b0e58edf4482aeb.tar.bz2
drakx-917ac587c5de1f9caaaf112c3b0e58edf4482aeb.tar.xz
drakx-917ac587c5de1f9caaaf112c3b0e58edf4482aeb.zip
revived, still needed since installer can't make symlinks on read-only stage2, and we can't easily workaround it by modifying LC_* variables
Diffstat (limited to 'perl-install/share/gen_locales.pl')
-rw-r--r--perl-install/share/gen_locales.pl12
1 files changed, 12 insertions, 0 deletions
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 $_";
+ }
+}