summaryrefslogtreecommitdiffstats
path: root/perl-install/share/gen_locales.pl
blob: 4928ff8c8aefcc3a9f2ea14d6c8fe4c0266f84b0 (plain)
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 $_";
    }
}