ADD: more tests
This commit is contained in:
parent
eabc37d23b
commit
e851de04da
@ -95,7 +95,7 @@ sub tryToConnect
|
|||||||
|
|
||||||
$self->log(LOGDEBUG, "DSN try:" . $dsn);
|
$self->log(LOGDEBUG, "DSN try:" . $dsn);
|
||||||
|
|
||||||
my $dbh = DBI::connect($dsn, $user , $pass );
|
my $dbh = DBI->connect($dsn, $user , $pass );
|
||||||
|
|
||||||
if ($dbh->err())
|
if ($dbh->err())
|
||||||
{
|
{
|
||||||
@ -218,7 +218,7 @@ sub askDatabase
|
|||||||
}
|
}
|
||||||
|
|
||||||
my $dsn = $self->{dsn};
|
my $dsn = $self->{dsn};
|
||||||
my $dbh = DBI::connect($dsn, $self->{user}, $self->{pass});
|
my $dbh = DBI->connect($dsn, $self->{user}, $self->{pass});
|
||||||
|
|
||||||
if ($dbh->err())
|
if ($dbh->err())
|
||||||
{
|
{
|
||||||
|
Loading…
Reference in New Issue
Block a user