[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.3

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

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