FREETMPS;LEAVE;
int modperl_require_module(pTHX_ const char *pv, int logfailure){    SV *sv;    dSP;    PUSHSTACKi(PERLSI_REQUIRE);    PUTBACK;    sv = sv_newmortal();    sv_setpv(sv, "require ");    sv_catpv(sv, pv);    eval_sv(sv, G_DISCARD);    SPAGAIN;    POPSTACK;    if (SvTRUE(ERRSV)) {        if (logfailure) {            (void)modperl_errsv(aTHX_ HTTP_INTERNAL_SERVER_ERROR,                                NULL, NULL);        }        return FALSE;    }            return TRUE;}