Commit 3682a478 authored by Clément OUDOT's avatar Clément OUDOT

Use eval for Net::LDAP uri (#LEMONLDAP-1092)

git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/branches/lemonldap-ng_version_1_4-bugfixes@5422 1dbb9719-a921-0410-b57f-c3a383c2c641
parent e1b7a3f3
......@@ -15,7 +15,7 @@ use Unicode::String qw(utf8);
use strict;
our @EXPORT = qw(ldap);
our $VERSION = '1.4.8';
our $VERSION = '1.4.11';
our $ppLoaded = 0;
BEGIN {
......@@ -118,10 +118,11 @@ sub bind {
# Reimplementation of Net::LDAP::unbind() to force call to disconnect()
# @return Net::LDAP::Message
sub unbind {
my $self = shift;
my $ldap_uri = $self->uri;
my $self = shift;
my $ldap_uri = $self->{portal}->{ldapServer};
eval { $ldap_uri = $self->uri; };
$self->{portal}->lmLog("Unbind and disconnect from $ldap_uri", 'debug');
$self->{portal}->lmLog( "Unbind and disconnect from $ldap_uri", 'debug' );
my $mesg = $self->SUPER::unbind();
$self->SUPER::disconnect();
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment