view release on metacpan or  search on metacpan

Domain.xs  view on Meta::CPAN

        SvUTF8_on(key);
    return key;
}

MODULE = Sort::Key::Domain		PACKAGE = Sort::Key::Domain		
PROTOTYPES: DISABLE

void
mkkey_domain(domain = NULL)
    SV *domain
PPCODE:
    if (!domain)
        domain = DEFSV;
    EXTEND(SP, 1);
    ST(0) = mkkey_domain(aTHX_ domain);
    XSRETURN(1);