explicitly call disconnect

nekokak · Mar 7, 2011 · 389b018 · 389b018
1 parent 6ca998d
commit 389b018
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/lib/DBIx/Skinny.pm b/lib/DBIx/Skinny.pm
@@ -253,8 +253,11 @@ sub do_on_connect {
 
 sub disconnect {
     my $class = shift;
-    $class->_attributes->{dbh} = undef;
-    $class->_attributes->{txn_manager} = undef;
+    delete $class->_attributes->{txn_manager};
+    if (my $dbh = delete $class->_attributes->{dbh}) {
+        local $@;
+        eval { $dbh->disconnect };
+    }
 }
 
 sub set_dbh {