if (r->main) { return;
if (r->main && wb->pool) { return;
void modperl_response_init(request_rec *r){    MP_dRCFG;    MP_dDCFG;    modperl_wbucket_t *wb = rcfg->wbucket;    if (r->main) {        return;    }    /* setup buffer for output */    wb->pool = r->pool;    wb->filters = &r->output_filters;    wb->outcnt = 0;    wb->header_parse = MpDirPARSE_HEADERS(dcfg) ? 1 : 0;    wb->r = r;}