Return to dbchgk.pm CVS log | Up to [Local Repository] / db / prgsrc / eq |
version 1.2, 2001/05/18 02:10:15 | version 1.3, 2001/05/18 02:12:41 |
---|---|
Line 10 use vars qw(@ISA @EXPORT); | Line 10 use vars qw(@ISA @EXPORT); |
my $z; | my $z; |
my $qbase; | my $qbase; |
BEGIN {do "chgk.cnf"; | BEGIN {do "chgk.cnf"; |
$qbase = DBI -> connect ("DBI:mysql:$base",undef,undef); | $qbase = DBI -> connect ("DBI:mysql:$base",'piataev',''); |
}; | }; |