diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-12-01 02:34:37 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-12-01 02:34:37 +0000 |
| commit | 7903ae3a9151061395470090ce8a2a328913a152 (patch) | |
| tree | f824e0590fbf1e96de582c4f86a683615228f9a4 | |
| parent | 67f700453f4b322140aba7272b186801571b49da (diff) | |
Don't disconnect on destruction of the server object if the handle is
marked with InactiveDestroy.
| -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}; } ############################################################################## |