From 7903ae3a9151061395470090ce8a2a328913a152 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Sat, 1 Dec 2007 02:34:37 +0000
Subject: Don't disconnect on destruction of the server object if the handle is
 marked with InactiveDestroy.

---
 perl/Wallet/Server.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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};
 }
 
 ##############################################################################
-- 
cgit v1.2.3