--- db/prgsrc/common.pl	2001/10/31 03:00:07	1.1
+++ db/prgsrc/common.pl	2001/10/31 03:07:18	1.2
@@ -1,23 +1,25 @@
-################################################################
-########## стандартные заклинания, которые должны быть везде.###
-################################################################
-
-
-$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"};
+#!/usr/bin/perl
+
+################################################################
+########## стандартные заклинания, которые должны быть везде.###
+################################################################
+
+
+$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"};