Return to common.pl CVS log

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

koi8 locale chaking is temporarily removed

################################################################
########## стандартные заклинания, которые должны быть везде.###
################################################################

$rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/;
$RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/;
$RLrl=qr/(?:(?:${rl})|(?:${RL}))+/;
$l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/;
$Ll=qr/(?:[A-Z])|(?:${RL})/;


install_locale();

sub install_locale
{
my ($thislocale);
if ($^O ~= /win/i) {
	$thislocale = "Russian_Russia.20866";
} else {
	$thislocale = "ru_RU.KOI8-R";
}
POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
#if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};
}

do "chgk.cnf"