modperl_envelem_tie(sv, elt->key, klen);
void modperl_env_hv_store(pTHX_ HV *hv, apr_table_entry_t *elt){    I32 klen = strlen(elt->key);    SV **svp = hv_fetch(hv, elt->key, klen, FALSE);    if (svp) {        sv_setpv(*svp, elt->val);    }    else {        SV *sv = newSVpv(elt->val, 0);        hv_store(hv, elt->key, klen, sv, FALSE);        svp = &sv;    }    SvTAINTED_on(*svp);}