Commit d1cc334d authored by Howard Chu's avatar Howard Chu
Browse files

Cleanup PERL_5_6 ifdefs

parent ab8a0b7c
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
......@@ -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 ;
......
......@@ -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;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment