upstream/openldap
1
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2025-12-24 16:49:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ITS#1729, #1659

Browse source
This commit is contained in:
Luke Howard 2002-04-16 03:58:21 +00:00
parent d2585491a0
commit a045fc60a5
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
servers/slapd/back-perl/config.c
View file

@ -60,15 +60,16 @@ perl_back_db_config(
if (SvTRUE(ERRSV)) {
fprintf(stderr , "Error %s\n", SvPV(ERRSV, na)) ;
}
#else
snprintf( eval_str, EVAL_BUF_SIZE, "%s", argv[1] );
perl_require_pv( strcat( eval_str, ".pm" ));
snprintf( eval_str, EVAL_BUF_SIZE, "%s.pm", argv[1] );
perl_require_pv( eval_str );
if (SvTRUE(GvSV(errgv))) {
fprintf(stderr , "Error %s\n", SvPV(GvSV(errgv), na)) ;
}
#endif /* PERL_IS_5_6 */
} else {
else {
dSP; ENTER; SAVETMPS;
PUSHMARK(sp);
XPUSHs(sv_2mortal(newSVpv(argv[1], 0)));
@ -106,6 +107,8 @@ perl_back_db_config(
loc_sv = perl_eval_pv( eval_str, 0 );
#endif
/* XXX loc_sv return value is ignored. */
} else if ( strcasecmp( argv[0], "filterSearchResults" ) == 0 ) {
perl_back->pb_filter_search_results = 1;
} else {