--- db/prgsrc/updateindex.pl	2005/12/10 00:03:55	1.10
+++ db/prgsrc/updateindex.pl	2006/09/25 00:09:43	1.11
@@ -58,7 +58,7 @@ createindex.pl(1)
 
 Boris Veytsman
 
-=head1 $Id: updateindex.pl,v 1.10 2005/12/10 00:03:55 roma7 Exp $
+=head1 $Id: updateindex.pl,v 1.11 2006/09/25 00:09:43 roma7 Exp $
 
 =cut
 
@@ -93,7 +93,7 @@ MAIN:
     my $filename;
     my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") 
 	or die "Can't connect to DB chgk\n";
-        $dbh->do("SET NAMES 'koi8r'");
+if ($dbh->get_info( 18 )=~/^(5|(4.1))/)  {$dbh->do("SET NAMES 'koi8r'");}
     if ($source) {
 	open INFO, $source or die "Can't open input file: $!\n";
     } else {