for (i=0; MP_xs_loaders[i]; i++) { char *name = Perl_form(aTHX_ MP_xs_loader_name, MP_xs_loaders[i]); newCONSTSUB(PL_defstash, name, newSViv(1)); }
SAVEDESTRUCTOR_X(modperl_boot, 0);
static void modperl_xs_init(pTHX){    int i;    xs_init(aTHX); /* see modperl_xsinit.c */    for (i=0; MP_xs_loaders[i]; i++) {        char *name = Perl_form(aTHX_ MP_xs_loader_name, MP_xs_loaders[i]);        newCONSTSUB(PL_defstash, name, newSViv(1));    }}