From 9aa781488c84fd261f9e87c4a643645aa2fe9854 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 21 Jul 2002 12:17:35 +0000 Subject: build per languages symlinks using the new::during_install__lang2charset -> this enables doing the same during install when using ramdisk => no need to have a locale.cz2 anymore (this is now possible since the number of special cases is lower than before) --- perl-install/share/gen_locales.pl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 perl-install/share/gen_locales.pl (limited to '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..ba0f4784e --- /dev/null +++ b/perl-install/share/gen_locales.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl + +use MDK::Common; +use lang; + +foreach (lang::list()) { + my $LANG = lang::lang2LANG($_); + + my $c = lang::during_install__lang2charset($_) or next; + -e "usr/share/locale/$c" or warn("not handled language $_ ($LANG, $c)\n"), next; + if (my $exist = readlink "usr/share/locale/$LANG") { + $exist eq $c or die "symlink $LANG already exist and is $exist instead of $c\n"; + } else { + symlink $c, "usr/share/locale/$LANG" or die "can't create symlink $LANG (for $_)"; + } +} -- cgit v1.2.1