Add a safety check to bvcasechr

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

diff --git a/servers/slapd/back-perl/compare.c b/servers/slapd/back-perl/compare.c
index 482cdd06d58e039d89603a8939b8aa899bab75da..82d445ba0d076df5e556aa6baf9594c6b2d9cb67 100644 (file)
--- a/servers/slapd/back-perl/compare.c
+++ b/servers/slapd/back-perl/compare.c
@@ -1,3 +1,4 @@
+/* $OpenLDAP$ */
 /*
  *      Copyright 1999, John C. Quillan, All rights reserved.
  *
@@ -30,7 +31,8 @@ perl_back_compare(
        Backend *be,
        Connection      *conn,
        Operation       *op,
-       char    *dn,
+       const char      *dn,
+       const char      *ndn,
        Ava             *ava
 )
 {
@@ -40,7 +42,7 @@ perl_back_compare(
        PerlBackend *perl_back = (PerlBackend *)be->be_private;
 
        send_ldap_result( conn, op, LDAP_UNWILLING_TO_PERFORM,
-               NULL, "not yet implemented", NULL, NULL );
+               NULL, "not supported", NULL, NULL );
 
 #ifdef notdef
        ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );