s/LDAP_NOT_SUPPORTED/LDAP_UNWILLING_TO_PERFORM/

diff --git a/servers/slapd/back-perl/compare.c b/servers/slapd/back-perl/compare.c
index 25cc3808d80690b15e66322c117ad62f1e9b12a0..17429d10bca7461bb74c5309fe3b6e254659738d 100644 (file)
--- a/servers/slapd/back-perl/compare.c
+++ b/servers/slapd/back-perl/compare.c
@@ -39,7 +39,7 @@ perl_back_compare(
 
        PerlBackend *perl_back = (PerlBackend *)be->be_private;
 
-       send_ldap_result( conn, op, LDAP_NOT_SUPPORTED,
+       send_ldap_result( conn, op, LDAP_UNWILLING_TO_PERFORM,
                "", "not yet implemented" );
 
 #ifdef notdef

diff --git a/servers/slapd/back-perl/unbind.c b/servers/slapd/back-perl/unbind.c
index 5ba03f29a8476c96a9ad01b2c7afef5661df65d1..dad9499230699f6e31b63b4a371cd7186ef846d5 100644 (file)
--- a/servers/slapd/back-perl/unbind.c
+++ b/servers/slapd/back-perl/unbind.c
@@ -34,7 +34,7 @@ perl_back_unbind(
        Operation *op
 )
 {
-       send_ldap_result( conn, op, LDAP_NOT_SUPPORTED,
+       send_ldap_result( conn, op, LDAP_UNWILLING_TO_PERFORM,
                "", "not yet implemented" );
        Debug( LDAP_DEBUG_TRACE, "Perl UNBIND\n", 0, 0, 0 );
        return 0;