newSVpvn(ent->val, ent->vlen), ent->hash);
sv, ent->hash); modperl_envelem_tie(sv, ent->key, ent->klen);
void modperl_env_default_populate(pTHX){    modperl_env_ent_t *ent = MP_env_const_vars;    HV *hv = ENVHV;    U32 mg_flags;    modperl_env_untie(mg_flags);    while (ent->key) {        hv_store(hv, ent->key, ent->klen,                 newSVpvn(ent->val, ent->vlen), ent->hash);        ent++;    }    modperl_env_tie(mg_flags);}