s/LDAP_NOT_SUPPORTED/LDAP_UNWILLING_TO_PERFORM/

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

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;