dSP;
REGEXP * rx;
re__engine__Plugin re;
- I32 count;
I32 buffers;
/* exp/xend version of the pattern & length */
STRLEN plen;
char* exp = SvPV((SV*)pattern, plen);
- char* xend = exp + plen;
/* The REGEXP structure to return to perl */
Newxz(rx, 1, REGEXP);
buffers = rx->nparens;
- Newxz(rx->offs, buffers, regexp_paren_pair);
+ Newxz(rx->offs, buffers + 1, regexp_paren_pair);
return rx;
}
}
void *
-Plugin_dupe(pTHX_ const REGEXP * rx, CLONE_PARAMS *param)
+Plugin_dupe(pTHX_ REGEXP * const rx, CLONE_PARAMS *param)
{
Perl_croak(aTHX_ "dupe not supported yet");
return rx->pprivate;
SV const * const value)
{
dSP;
- I32 items;
SV * callback;
GET_SELF_FROM_PPRIVATE(rx->pprivate);
const I32 paren)
{
dSP;
- I32 items;
SV * callback;
GET_SELF_FROM_PPRIVATE(rx->pprivate);