enhance dbi connect for multi meta mode

This commit is contained in:
garnier-quentin 2019-07-09 10:26:15 +02:00
parent bb842efd69
commit ae130a3f5a
1 changed files with 3 additions and 0 deletions

View File

@ -204,6 +204,7 @@ sub disconnect {
if (defined($self->{instance})) {
$self->{statement_handle} = undef;
$self->{instance}->disconnect();
$self->{instance} = undef;
}
}
@ -211,6 +212,8 @@ sub connect {
my ($self, %options) = @_;
my $dontquit = (defined($options{dontquit}) && $options{dontquit} == 1) ? 1 : 0;
return if (defined($self->{instance}));
# Set ENV
if (defined($self->{env})) {
foreach (keys %{$self->{env}}) {