LEMONLDAP::NG : fix bug #311849

2008-11-18 12:47:30 +00:00 · 2008-11-18 12:47:30 +00:00 · 19b5fa1190
commit 19b5fa1190
parent cae4cbade0
1 changed files with 1 additions and 1 deletions
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthLDAP.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthLDAP.pm
@ -10,7 +10,7 @@ sub ldap {
    unless ( ref( $self->{ldap} ) ) {
        my $mesg = $self->{ldap}->bind
          if ( $self->{ldap} = Lemonldap::NG::Portal::_LDAP->new($self) );
-        if ( $mesg->code != 0 ) {
+        if ( !$mesg || $mesg->code != 0 ) {
            return 0;
        }
    }