--- db/prgsrc/eq/Attic/dbchgk.pm	2001/05/18 01:37:51	1.1
+++ db/prgsrc/eq/Attic/dbchgk.pm	2001/05/18 02:12:41	1.3
@@ -1,7 +1,7 @@
 package dbchgk;
 use DBI;
 use Exporter;
-use VARS qw(@ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
 @ISA=qw(Exporter);
 
 @EXPORT = qw(&getbase &closebase &getrow $z &in2out &getall &out2in &mydo
@@ -10,7 +10,7 @@ use VARS qw(@ISA @EXPORT);
 my $z;
 my $qbase;
 BEGIN {do "chgk.cnf"; 	
-          $qbase = DBI -> connect ("DBI:mysql:$base",undef,undef);
+          $qbase = DBI -> connect ("DBI:mysql:$base",'piataev','');
       };