perl-install/share/gen_locales.pl


1
2
3
4
5
6
7
8
9
10
11
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 "UTF-8", "usr/share/locale/$_" or die "can't create symlink $_";
    }
}