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 17429d10bca7461bb74c5309fe3b6e254659738d..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,
-               "", "not yet implemented" );
+               NULL, "not supported", NULL, NULL );
 
 #ifdef notdef
        ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
@@ -70,10 +72,10 @@ perl_back_compare(
        ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );        
 
        if( return_code != 0 ) {
-               send_ldap_result( conn, op, LDAP_COMPARE_TRUE, "", "" );
+               send_ldap_result( conn, op, LDAP_COMPARE_TRUE, NULL, NULL );
 
        } else {
-               send_ldap_result( conn, op, LDAP_COMPARE_FALSE, "", "" );
+               send_ldap_result( conn, op, LDAP_COMPARE_FALSE, NULL, NULL );
        }
 #endif