re__engine__Plugin re;
const rep_hint_t *h;
+ h = rep_hint();
+ if (!h) /* This looks like a pragma leak. Apply the default behaviour */
+ return re_compile(pattern, flags);
+
/* exp/xend version of the pattern & length */
STRLEN plen;
char* exp = SvPV((SV*)pattern, plen);
re->pattern = (SV*)pattern;
SvREFCNT_inc(re->pattern);
- /*
- * Call our callback function if one was defined, if not we've
+ /* If there's an exec callback, store it into the private object so
+ * that it will be the one to be called, even if the engine changes
+ * in between */
+ if (h->exec) {
+ re->cb_exec = h->exec;
+ SvREFCNT_inc_simple_void_NN(h->exec);
+ }
+
+ re->cb_num_capture_buff_FETCH = NULL;
+ re->cb_num_capture_buff_STORE = NULL;
+ re->cb_num_capture_buff_LENGTH = NULL;
+
+ /* Call our callback function if one was defined, if not we've
* already set up all the stuff we're going to to need for
- * subsequent exec and other calls
- */
- h = rep_hint();
- if (h && h->comp) {
+ * subsequent exec and other calls */
+ if (h->comp) {
ENTER;
SAVETMPS;
LEAVE;
}
- /* If there's an exec callback, store it into the private object so
- * that it will be the one to be called, even if the engine changes
- * in between */
- if (h && h->exec) {
- re->cb_exec = h->exec;
- SvREFCNT_inc_simple_void_NN(h->exec);
- }
-
/* If any of the comp-time accessors were called we'll have to
* update the regexp struct with the new info.
*/
void
Plugin_free(pTHX_ REGEXP * const RX)
{
- PERL_UNUSED_ARG(RX);
+ struct regexp *rx = rxREGEXP(RX);
+ GET_SELF_FROM_PPRIVATE(rx->pprivate);
+
+ SvREFCNT_dec(self->pattern);
+ SvREFCNT_dec(self->str);
+
+ SvREFCNT_dec(self->cb_exec);
+
+ SvREFCNT_dec(self->cb_num_capture_buff_FETCH);
+ SvREFCNT_dec(self->cb_num_capture_buff_STORE);
+ SvREFCNT_dec(self->cb_num_capture_buff_LENGTH);
+
+ self->rx = NULL;
+ Safefree(self);
+
/*
dSP;
SV * callback;
- GET_SELF_FROM_PPRIVATE(rx->pprivate);
callback = self->cb_free;
}
}
+void
+_exec(re::engine::Plugin self, ...)
+PPCODE:
+ if (items > 1) {
+ SvREFCNT_dec(self->cb_exec);
+ self->cb_exec = ST(1);
+ SvREFCNT_inc(self->cb_exec);
+ }
+
void
_num_capture_buff_FETCH(re::engine::Plugin self, ...)
PPCODE:
if (items > 1) {
+ SvREFCNT_dec(self->cb_num_capture_buff_FETCH);
self->cb_num_capture_buff_FETCH = ST(1);
SvREFCNT_inc(self->cb_num_capture_buff_FETCH);
}
_num_capture_buff_STORE(re::engine::Plugin self, ...)
PPCODE:
if (items > 1) {
+ SvREFCNT_dec(self->cb_num_capture_buff_STORE);
self->cb_num_capture_buff_STORE = ST(1);
SvREFCNT_inc(self->cb_num_capture_buff_STORE);
}
_num_capture_buff_LENGTH(re::engine::Plugin self, ...)
PPCODE:
if (items > 1) {
+ SvREFCNT_dec(self->cb_num_capture_buff_LENGTH);
self->cb_num_capture_buff_LENGTH = ST(1);
SvREFCNT_inc(self->cb_num_capture_buff_LENGTH);
}