From a045fc60a5bbaebdff4847f09096f8710438e7fb Mon Sep 17 00:00:00 2001 From: Luke Howard Date: Tue, 16 Apr 2002 03:58:21 +0000 Subject: [PATCH] ITS#1729, #1659 --- servers/slapd/back-perl/config.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/servers/slapd/back-perl/config.c b/servers/slapd/back-perl/config.c index f70d2b7ebb..886113f227 100644 --- a/servers/slapd/back-perl/config.c +++ b/servers/slapd/back-perl/config.c @@ -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 { -- 2.39.5