version 1.8, 2001/05/18 22:53:03
|
version 1.9, 2001/05/18 22:56:20
|
Line 33 use POSIX qw (locale_h);
|
Line 33 use POSIX qw (locale_h);
|
do "common.pl"; |
do "common.pl"; |
|
|
my ($thislocale); |
my ($thislocale); |
if ($^O ~= /win/i) { |
if ($^O =~ /win/i) { |
$thislocale = "Russian_Russia.20866"; |
$thislocale = "Russian_Russia.20866"; |
} else { |
} else { |
$thislocale = "ru_RU.KOI8-R"; |
$thislocale = "ru_RU.KOI8-R"; |
} |
} |
POSIX::setlocale( &POSIX::LC_ALL, $thislocale ); |
POSIX::setlocale( &POSIX::LC_ALL, $thislocale ); |
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
} |
|
|
|
|
|
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |