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>