From d2585491a05754b63d9c5c53976c46d673359c53 Mon Sep 17 00:00:00 2001
From: Luke Howard <lukeh@openldap.org>
Date: Tue, 16 Apr 2002 03:56:23 +0000
Subject: [PATCH] ITS#1729

---
 servers/slapd/back-perl/bind.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 );
 }
-- 
GitLab