Return to common.pl CVS log

Up to [Local Repository] / db / prgsrc

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

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