view release on metacpan or  search on metacpan

LCSS_XS.xs  view on Meta::CPAN

    SV* t
    int min
PROTOTYPE: $$;$
ALIAS:
    lcss     = 1
    lcss_all = 2
PREINIT:
    int list_cx;
    int wide;
    SV* rv;
PPCODE:
    if (!SvOK(s) || !SvOK(t))
        XSRETURN_UNDEF;

    list_cx = GIMME_V == G_ARRAY;

    SvPV_nolen(s);  /* Process magic and stringify */
    SvPV_nolen(t);

    wide = SvUTF8(s) || SvUTF8(t);
    if (wide) {