From: Luke Howard <lukeh@openldap.org>
Date: Tue, 16 Apr 2002 03:56:23 +0000 (+0000)
Subject: ITS#1729
X-Git-Tag: OPENLDAP_REL_ENG_2_MP~192
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=d2585491a05754b63d9c5c53976c46d673359c53;p=openldap

ITS#1729
---

diff --git a/servers/slapd/back-perl/bind.c b/servers/slapd/back-perl/bind.c
index f246c2f26e..e76236ed39 100644
--- a/servers/slapd/back-perl/bind.c
+++ b/servers/slapd/back-perl/bind.c
@@ -77,7 +77,9 @@ perl_back_bind(
 
 	ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );	
 
-	Debug( LDAP_DEBUG_ANY, "Perl BIND\n", 0, 0, 0 );
+	Debug( LDAP_DEBUG_ANY, "Perl BIND returned 0x%04x\n", return_code, 0, 0 );
+
+	send_ldap_result( conn, op, return_code, NULL, NULL, NULL, NULL );
 
 	return ( return_code );
 }