Return to common.pl CVS log

Up to [Local Repository] / db / prgsrc

chgk.cnf

#!/usr/bin/perl

################################################################
########## стандартные заклинания, которые должны быть везде.###
################################################################

use POSIX;
use locale;
$rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/;
$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 {
	$thislocale = "ru_RU.KOI8-R"; 
  }
  POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
  if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};