From 0683c0caaf862f983ee8e07a49418e99f1650382 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@linuxdv.org>
Date: Fri, 21 Nov 2014 11:29:26 +1000
Subject: [PATCH] * LDV::LDAP : properly disconnect

---
 lib/LDV/LDAP.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/LDV/LDAP.pm b/lib/LDV/LDAP.pm
index 5a5dbbf..99a7202 100644
--- a/lib/LDV/LDAP.pm
+++ b/lib/LDV/LDAP.pm
@@ -68,6 +68,7 @@ sub create {
     sn  => 'created',
   ]);
   $conn->unbind;
+  $conn->disconnect;
   return $result->error if ($result->code);
   return;
 }
@@ -79,6 +80,7 @@ sub delete {
   my $dn = $self->_uid_to_dn($uid);
   my $result = $conn->delete($dn);
   $conn->unbind;
+  $conn->disconnect;
   return $result->error if ($result->code);
   return;
 }
@@ -90,6 +92,7 @@ sub get {
   my $mesg = $conn->search(base => $self->{userbase}, scope => 'one',
                            deref => 'never', filter => $filter);
   $conn->unbind;
+  $conn->disconnect;
   return unless $mesg->count;
   my $entry = $mesg->pop_entry();
   my $data = {};
@@ -136,6 +139,7 @@ sub update {
   }
   my $result = $conn->modify($dn, changes => \@chg);
   $conn->unbind;
+  $conn->disconnect;
 
   return $result->error if ($result->code);
   return;