ITS#1729

diff --git a/servers/slapd/back-perl/bind.c b/servers/slapd/back-perl/bind.c
index f246c2f26ee94e519e13102b443b59e62a5b24fb..e76236ed39e896fdc11890cede7fbe5d7dfc88aa 100644 (file)
--- 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 );
 }