diff options
| author | Mystery Man <unknown@mandriva.org> | 2002-08-01 19:39:26 +0000 |
|---|---|---|
| committer | Mystery Man <unknown@mandriva.org> | 2002-08-01 19:39:26 +0000 |
| commit | 3652ec5a73e3863215bcd87c4994fdbf55299300 (patch) | |
| tree | 57c2dc33aed5c59a080bd5da7bf5b8125b4a2aef /perl-install/share/gen_locales.pl | |
| parent | af0430510356c70ea497fc108466c6236c1afcc1 (diff) | |
| download | drakx-1_1_9_2mdk.tar drakx-1_1_9_2mdk.tar.gz drakx-1_1_9_2mdk.tar.bz2 drakx-1_1_9_2mdk.tar.xz drakx-1_1_9_2mdk.zip | |
This commit was manufactured by cvs2svn to create tag 'V1_1_9_2mdk'.V1_1_9_2mdk
Diffstat (limited to 'perl-install/share/gen_locales.pl')
| -rw-r--r-- | perl-install/share/gen_locales.pl | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/perl-install/share/gen_locales.pl b/perl-install/share/gen_locales.pl deleted file mode 100644 index ba0f4784e..000000000 --- a/perl-install/share/gen_locales.pl +++ /dev/null @@ -1,16 +0,0 @@ -#!/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 $_)"; - } -} |