Return to common.pl CVS log

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

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"