Return to koitest.pl CVS log | Up to [Local Repository] / db / prgsrc / eq |
version 1.1, 2001/05/18 02:20:15 | version 1.2, 2001/05/18 03:17:35 |
---|---|
Line 1 | Line 1 |
use locale; | |
use POSIX qw (locale_h); | use POSIX qw (locale_h); |
POSIX::setlocale( &POSIX::LC_ALL, 'ru_RU.KOI8-R'); | POSIX::setlocale( &POSIX::LC_ALL, 'ru_RU.KOI8-R'); |
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; | if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |