int i;
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));    }}