/* SHORT-CUT ALERT! */ /* if (xsbypass && isGV(imp_msv) && CvXSUB(GvCV(imp_msv))) { I32 markix = TOPMARK; CV *xscv = GvCV(imp_msv); (void)(*CvXSUB(xscv))(xscv) if (gimme == G_SCALAR) { if (++markix != stack_sp - stack_base ) { if (markix > stack_sp - stack_base) *(stack_base + markix) = &sv_undef; else *(stack_base + markix) = *stack_sp; stack_sp = stack_base + markix; } outitems = 1; } else { outitems = stack_sp - (stack_base + markix); } } else {*/ outitems = perl_call_sv(isGV(imp_msv) ? (SV*)GvCV(imp_msv) : imp_msv, gimme); /* }*/