Implemented the open, init functions correctly

[openldap] / servers / slapd / back-perl / unbind.c

diff --git a/servers/slapd/back-perl/unbind.c b/servers/slapd/back-perl/unbind.c
index 2c83d8573da30a42f52532225d73c57ffab04f07..5ba03f29a8476c96a9ad01b2c7afef5661df65d1 100644 (file)
--- a/servers/slapd/back-perl/unbind.c
+++ b/servers/slapd/back-perl/unbind.c
@@ -27,7 +27,7 @@
  * UnBind
  *
  **********************************************************/
-void
+int
 perl_back_unbind(
        Backend *be,
        Connection *conn,
@@ -36,6 +36,7 @@ perl_back_unbind(
 {
        send_ldap_result( conn, op, LDAP_NOT_SUPPORTED,
                "", "not yet implemented" );
-       Debug( LDAP_DEBUG_ANY, "Perl UNBIND\n", 0, 0, 0 );
+       Debug( LDAP_DEBUG_TRACE, "Perl UNBIND\n", 0, 0, 0 );
+       return 0;
 }