[BACK]Return to common.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/common.pl between versions 1.1 and 1.2

version 1.1, 2001/10/31 03:00:07 version 1.2, 2001/10/31 03:07:18
Line 1 Line 1
 ################################################################  #!/usr/bin/perl
 ########## стандартные заклинания, которые должны быть везде.###  
 ################################################################  ################################################################
   ########## стандартные заклинания, которые должны быть везде.###
   ################################################################
 $rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/;  
 $RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/;  
 $RLrl=qr/(?:(?:${rl})|(?:${RL}))+/;  $rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/;
 $l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/;  $RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/;
 $Ll=qr/(?:[A-Z])|(?:${RL})/;  $RLrl=qr/(?:(?:${rl})|(?:${RL}))+/;
   $l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/;
   $Ll=qr/(?:[A-Z])|(?:${RL})/;
   
   
   
   my ($thislocale);  
   if ($^O =~ /win/i) {  
         $thislocale = "Russian_Russia.20866";    my ($thislocale);
   } else {    if ($^O =~ /win/i) {
         $thislocale = "ru_RU.KOI8-R";          $thislocale = "Russian_Russia.20866";
   }    } else {
   POSIX::setlocale( &POSIX::LC_ALL, $thislocale );          $thislocale = "ru_RU.KOI8-R"; 
   if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};    }
     POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
     if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};
Removed from v.1.1  
changed lines
  Added in v.1.2

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