db/prgsrc/eq/findequal.pl - diff

Return to findequal.pl CVS log

Up to [Local Repository] / db / prgsrc / eq

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"};