Annotation of db/prgsrc/eq/common.pl, revision 1.3
1.1 roma7 1: ################################################################
2: ########## стандартные заклинания, которые должны быть везде.###
3: ################################################################
4:
5: $rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/;
6: $RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/;
7: $RLrl=qr/(?:(?:${rl})|(?:${RL}))+/;
8: $l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/;
9: $Ll=qr/(?:[A-Z])|(?:${RL})/;
10:
11:
12: install_locale();
13:
14: sub install_locale
15: {
16: my ($thislocale);
17: if ($^O ~= /win/i) {
18: $thislocale = "Russian_Russia.20866";
19: } else {
20: $thislocale = "ru_RU.KOI8-R";
21: }
22: POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
1.3 ! roma7 23: if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};
1.1 roma7 24: }
25:
26: do "chgk.cnf"
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>