--- db/prgsrc/eq/Attic/dbchgk.pm	2001/05/18 02:10:15	1.2
+++ db/prgsrc/eq/Attic/dbchgk.pm	2001/05/18 02:12:41	1.3
@@ -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','');
       };