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