diff --git a/servers/slapd/back-perl/compare.c b/servers/slapd/back-perl/compare.c
index 25cc3808d8..17429d10bc 100644
--- 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 5ba03f29a8..dad9499230 100644
--- 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;