av_store(mav, AvFILLp(av)+1, sv);
av_store(mav, AvFILLp(mav)+1, sv);
static int modperl_perl_global_avcv_set(pTHX_ SV *sv, MAGIC *mg){    HE *he;    HV *hv;    AV *mav, *av = (AV*)sv;    const char *package = HvNAME(PL_curstash);    I32 packlen = strlen(package);    modperl_modglobal_key_t *gkey =        (modperl_modglobal_key_t *)mg->mg_ptr;    if ((he = MP_MODGLOBAL_FETCH(gkey))) {        hv = (HV*)HeVAL(he);    }    else {        hv = MP_MODGLOBAL_STORE_HV(gkey);    }    if ((he = hv_fetch_he(hv, (char *)package, packlen, 0))) {        mav = (AV*)HeVAL(he);    }    else {        mav = (AV*)*hv_store(hv, package, packlen, (SV*)newAV(), 0);    }    /* $cv = pop @av */    sv = AvARRAY(av)[AvFILLp(av)];    AvARRAY(av)[AvFILLp(av)--] = &PL_sv_undef;    /* push @{ $PL_modglobal{$key}{$package} }, $cv */    av_store(mav, AvFILLp(av)+1, sv);    return 1;}