apr_array_header_t *array = apr_table_elts(r->subprocess_env); apr_table_entry_t *elts = (apr_table_entry_t *)array->elts;
apr_array_header_t *array; apr_table_entry_t *elts;   if (MpReqSETUP_ENV(rcfg)) { return; }  MP_TRACE_g(MP_FUNC, "populating environment for %s\n", r->uri);
static void modperl_env_request_populate(pTHX_ request_rec *r){    HV *hv = GvHV(PL_envgv);    int i;    U32 mg_flags;    apr_array_header_t *array = apr_table_elts(r->subprocess_env);    apr_table_entry_t *elts = (apr_table_entry_t *)array->elts;    ap_add_common_vars(r);    ap_add_cgi_vars(r);    modperl_env_untie(mg_flags);    for (i = 0; i < array->nelts; i++) {	if (!elts[i].key || !elts[i].val) {            continue;        }        modperl_env_hv_store(aTHX_ hv, &elts[i]);    }        for (i = 0; modperl_env_const_vars[i].key; i++) {        const modperl_env_ent_t *ent = &modperl_env_const_vars[i];        hv_store(hv, ent->key, ent->klen,                 newSVpvn(ent->val, ent->vlen), ent->hash);    }                     modperl_env_tie(mg_flags);}