view release on metacpan or  search on metacpan

RegExp.xs  view on Meta::CPAN

char *stringarg
I32 len
I32 minend
I32 safebase

void
match(rx, match = -1, base = NULL)
regexp *rx
I32 match
char *base
PPCODE:
     {
	 I32 mx;
	 char *s = rx->subbase, *b, *e;

	 if (s == 0) {
	     if (base == NULL) die("Cannot do regmatch without a saved base");
	     s = base;
	 }
	 if (match == -1) {
	     EXTEND(sp, 2 * rx->nparens);