diff options
| -rw-r--r-- | perl/Wallet/Server.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm index c119ad4..37a4e0f 100644 --- a/perl/Wallet/Server.pm +++ b/perl/Wallet/Server.pm @@ -138,7 +138,7 @@ sub error { # Disconnect the database handle on object destruction to avoid warnings. sub DESTROY { my ($self) = @_; - $self->{dbh}->disconnect; + $self->{dbh}->disconnect unless $self->{dbh}->{InactiveDestroy}; } ############################################################################## |