diff options
| -rw-r--r-- | perl-install/share/gen_locales.pl | 12 |
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 $_"; + } +} |