* LDV::LDAP : properly disconnect

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;