Return to common.pl CVS log

Up to [Local Repository] / db / prgsrc

Adding Roma 7's files

    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"};