#define FAIL(m) \
STMT_START { \
- /*if (!SIZE_ONLY) \
- ReREFCNT_dec(PL_regcomp_rx);*/ \
+ if (!SIZE_ONLY) \
+ SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx); \
croak ("/%.127s/: %s", PL_regprecomp,m); \
} STMT_END
#define FAIL2(pat,m) \
STMT_START { \
- /*if (!SIZE_ONLY) \
- ReREFCNT_dec(PL_regcomp_rx);*/ \
+ if (!SIZE_ONLY) \
+ SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx); \
re_croak2("/%.127s/: ",pat,PL_regprecomp,m); \
} STMT_END