re.xs revision 7c478bd95313f5f23a4c958a745db2134aa03244
#if defined(PERL_EXT_RE_DEBUG) && !defined(DEBUGGING)
# define DEBUGGING
#endif
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
struct re_scream_pos_data_s *data);
typedef struct {
int x_oldflag; /* debug flag */
} my_cxt_t;
static void
{
if (!oldflag)
PL_debug &= ~DEBUG_r_FLAG;
}
static void
{
PL_colorset = 0; /* Allow reinspection of ENV. */
PL_regfree = &my_regfree;
PL_debug |= DEBUG_r_FLAG;
}
BOOT:
{
}
void
install()
CODE:
void
CODE: