Return to common.pl CVS log

Up to [Local Repository] / db / prgsrc

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

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