X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=servers%2Fslapd%2Fback-perl%2Fdelete.c;h=19d2346f9a7994c56197f324c4bd5680b8474eb1;hb=403f4479bc9f9a864122d4aeecf7284408918302;hp=d36755918382ffd8abf815880d84e6aa07334da5;hpb=b7beec16639919fa80f76f0e72db9afde77d32be;p=openldap

diff --git a/servers/slapd/back-perl/delete.c b/servers/slapd/back-perl/delete.c
index d367559183..19d2346f9a 100644
--- a/servers/slapd/back-perl/delete.c
+++ b/servers/slapd/back-perl/delete.c
@@ -1,3 +1,4 @@
+/* $OpenLDAP$ */
 /*
  *	 Copyright 1999, John C. Quillan, All rights reserved.
  *
@@ -33,7 +34,7 @@ perl_back_delete(
 
 	PerlBackend *perl_back = (PerlBackend *) be->be_private;
 
-	pthread_mutex_lock( &perl_interpreter_mutex );	
+	ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );	
 
 	{
 		dSP; ENTER; SAVETMPS;
@@ -57,13 +58,15 @@ perl_back_delete(
 		PUTBACK; FREETMPS; LEAVE;
 	}
 
-	pthread_mutex_unlock( &perl_interpreter_mutex );	
+	ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );	
 
 	if( return_code != 0 ) {
-		send_ldap_result( conn, op, LDAP_OPERATIONS_ERROR, "", "" );
+		send_ldap_result( conn, op, LDAP_OPERATIONS_ERROR,
+			NULL, NULL, NULL, NULL );
 
 	} else {
-		send_ldap_result( conn, op, LDAP_SUCCESS, "", "" );
+		send_ldap_result( conn, op, LDAP_SUCCESS,
+			NULL, NULL, NULL, NULL );
 	}
 
 	Debug( LDAP_DEBUG_ANY, "Here DELETE\n", 0, 0, 0 );