![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to koitest.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc / eq|
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"}; |