view release on metacpan or  search on metacpan

Mmap.xs  view on Meta::CPAN

    /* Define our own utf8::decode(), if we're on perl 5.6 */

MODULE = Cache::Mmap		PACKAGE = utf8

#if (PERL_VERSION == 6)

void
decode(SV *str)
    PROTOTYPE: $
    PPCODE:
	SV *sv=ST(0);
	int RETVAL;

	RETVAL=sv_utf8_decode(sv);
	ST(0)=boolSV(RETVAL);
	sv_2mortal(ST(0));
	XSRETURN(1);

#endif