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

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>