Return to common.pl CVS log

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

koi8 locale chaking is temporarily removed

    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 );
   23: #if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};
   24: }
   25: 
   26: do "chgk.cnf"