mirror/openldap
2
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2025-04-12 15:10:31 +08:00
Code Issues Packages Projects Releases Wiki Activity

Cleanup PERL_5_6 ifdefs

Browse Source
This commit is contained in:
Howard Chu 2011-02-05 00:48:22 +00:00
parent ab8a0b7c77
commit d1cc334deb
9 changed files with 0 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,11 +41,7 @@ perl_back_add(
PUTBACK;
#ifdef PERL_IS_5_6
count = call_method("add", G_SCALAR);
#else
count = perl_call_method("add", G_SCALAR);
#endif
SPAGAIN;

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

@ -57,11 +57,7 @@ perl_back_bind(
XPUSHs(sv_2mortal(newSVpv( op->orb_cred.bv_val , op->orb_cred.bv_len)));
PUTBACK;
#ifdef PERL_IS_5_6
count = call_method("bind", G_SCALAR);
#else
count = perl_call_method("bind", G_SCALAR);
#endif
SPAGAIN;

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

@ -55,11 +55,7 @@ perl_back_compare(
XPUSHs(sv_2mortal(newSVpv( avastr , 0)));
PUTBACK;
#ifdef PERL_IS_5_6
count = call_method("compare", G_SCALAR);
#else
count = perl_call_method("compare", G_SCALAR);
#endif
SPAGAIN;

5
servers/slapd/back-perl/config.c
View File

@ -173,13 +173,8 @@ perl_cf(
} else {
switch( c->type ) {
case PERL_MODULE:
#ifdef PERL_IS_5_6
snprintf( eval_str, EVAL_BUF_SIZE, "use %s;", c->argv[1] );
eval_pv( eval_str, 0 );
#else
snprintf( eval_str, EVAL_BUF_SIZE, "%s.pm", c->argv[1] );
perl_require_pv( eval_str );
#endif /* PERL_IS_5_6 */
if (SvTRUE(ERRSV)) {
STRLEN len;

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

@ -39,11 +39,7 @@ perl_back_delete(
PUTBACK;
#ifdef PERL_IS_5_6
count = call_method("delete", G_SCALAR);
#else
count = perl_call_method("delete", G_SCALAR);
#endif
SPAGAIN;

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

@ -130,11 +130,7 @@ perl_back_db_open(
PUTBACK;
#ifdef PERL_IS_5_6
count = call_method("init", G_SCALAR);
#else
count = perl_call_method("init", G_SCALAR);
#endif
SPAGAIN;

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

@ -75,11 +75,7 @@ perl_back_modify(
PUTBACK;
#ifdef PERL_IS_5_6
count = call_method("modify", G_SCALAR);
#else
count = perl_call_method("modify", G_SCALAR);
#endif
SPAGAIN;

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

@ -44,11 +44,7 @@ perl_back_modrdn(
}
PUTBACK ;
#ifdef PERL_IS_5_6
count = call_method("modrdn", G_SCALAR);
#else
count = perl_call_method("modrdn", G_SCALAR);
#endif
SPAGAIN ;

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

@ -57,11 +57,7 @@ perl_back_search(
}
PUTBACK;
#ifdef PERL_IS_5_6
count = call_method("search", G_ARRAY );
#else
count = perl_call_method("search", G_ARRAY );
#endif
SPAGAIN;