Return to common.pl CVS log

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

Annotation of db/prgsrc/eq/common.pl, revision 1.1

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