mirror of
https://git.openldap.org/openldap/openldap.git
synced 2026-01-19 21:32:58 -05:00
parent
f425a07d02
commit
5302323a7f
1 changed files with 1 additions and 3 deletions
|
|
@ -25,7 +25,6 @@ perl_back_add(
|
|||
PerlBackend *perl_back = (PerlBackend *) op->o_bd->be_private;
|
||||
int len;
|
||||
int count;
|
||||
char *str;
|
||||
|
||||
PERL_SET_CONTEXT( PERL_INTERPRETER );
|
||||
ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );
|
||||
|
|
@ -36,8 +35,7 @@ perl_back_add(
|
|||
|
||||
PUSHMARK(sp);
|
||||
XPUSHs( perl_back->pb_obj_ref );
|
||||
str = entry2str( op->ora_e, &len );
|
||||
XPUSHs(sv_2mortal(newSVpv( str, len )));
|
||||
XPUSHs(sv_2mortal(newSVpv( entry2str( op->ora_e, &len ), len )));
|
||||
|
||||
PUTBACK;
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue