MP_dINTERP_PUTBACK(interp);
MP_INTERP_PUTBACK(interp);
static int modperl_run_filter_init(ap_filter_t *f,                                   modperl_filter_mode_e mode,                                   modperl_handler_t *handler) {    AV *args = Nullav;    int status;    request_rec *r = f->r;    conn_rec    *c = f->c;    server_rec  *s = r ? r->server : c->base_server;    apr_pool_t  *p = r ? r->pool : c->pool;    MP_dINTERP_SELECT(r, c, s);        MP_TRACE_h(MP_FUNC, "running filter init handler %s\n", handler->name);                modperl_handler_make_args(aTHX_ &args,                              "Apache::Filter", f,                              NULL);    modperl_filter_mg_set(aTHX_ AvARRAY(args)[0],                          modperl_filter_new(f, NULL, mode, 0, 0, 0));    /* XXX filters are VOID handlers.  should we ignore the status? */    if ((status = modperl_callback(aTHX_ handler, p, r, s, args)) != OK) {        status = modperl_errsv(aTHX_ status, r, s);    }    SvREFCNT_dec((SV*)args);    MP_dINTERP_PUTBACK(interp);    MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT               "return: %d\n", handler->name, status);        return status;  }