mirror/openldap
2
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2024-12-21 03:10:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

ITS#7325 fix entry len

Browse Source
This commit is contained in:
Howard Chu 2012-07-19 01:38:39 -07:00
parent accd19edbc
commit 348d43e82f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
servers/slapd/back-perl/add.c
View File

@ -25,6 +25,7 @@ perl_back_add(
PerlBackend *perl_back = (PerlBackend *) op->o_bd->be_private; PerlBackend *perl_back = (PerlBackend *) op->o_bd->be_private;
int len; int len;
int count; int count;
char *str;
PERL_SET_CONTEXT( PERL_INTERPRETER ); PERL_SET_CONTEXT( PERL_INTERPRETER );
ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex ); ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );
@ -35,7 +36,8 @@ perl_back_add(
PUSHMARK(sp); PUSHMARK(sp);
XPUSHs( perl_back->pb_obj_ref ); XPUSHs( perl_back->pb_obj_ref );
XPUSHs(sv_2mortal(newSVpv( entry2str( op->ora_e, &len ), len ))); str = entry2str( op->ora_e, &len );
XPUSHs(sv_2mortal(newSVpv( str, len )));
PUTBACK; PUTBACK;