dev-perl/Net-LDAPapi/files/3.0.4-ldap_result-no_error.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14

diff --git a/LDAPapi.pm b/LDAPapi.pm
index 113d922..cba3b61 100644
--- a/LDAPapi.pm
+++ b/LDAPapi.pm
@@ -1355,8 +1355,8 @@ sub result
     $self->{"result"} = $result;
     $self->{"status"} = $status;
 
-    $self->errorize($status);
     if( $status == -1 || $status == 0 ) {
+        $self->errorize($status);
         return undef;
     }