view release on metacpan or  search on metacpan

Freesubs/Freesubs.xs  view on Meta::CPAN

	RETVAL

void
split(CLASS,string)
     char*  CLASS
     char*  string
PREINIT:
	char *class,*name,*cp,*dest,*timestamp;
	SV* c,n;
	int class_size,name_size,timestamp_size,total_size;
PPCODE:
	if (*string != '?') XSRETURN_EMPTY;
	/* first scan for the class */
	total_size = strlen(string) + 1;
	Newz(0,class,total_size,char);
	SAVEFREEPV(class);

	for (cp = string+1,dest=class; *cp; *cp && (*dest++ = *cp++) ) {
		while (*cp && *cp == '\\') {
			cp++;             /* skip character */
			if (!*cp) break;