SV **ptr;
if (!table)
- return &PL_core_reg_engine;
+ return &reh_regexp_engine;
ptr = hv_fetchs(table, "regcomp", FALSE);
if ( !(ptr && SvIOK(*ptr) && SvIV(*ptr)))
- return &PL_core_reg_engine;
+ return &reh_regexp_engine;
return INT2PTR(regexp_engine*,SvIV(*ptr));
}
else {
SV *ptr;
if (!PL_curcop->cop_hints_hash)
- return &PL_core_reg_engine;
+ return &reh_regexp_engine;
ptr = cop_hints_fetch_pvs(PL_curcop, "regcomp", 0);
if ( !(ptr && SvIOK(ptr) && SvIV(ptr)))
- return &PL_core_reg_engine;
+ return &reh_regexp_engine;
return INT2PTR(regexp_engine*,SvIV(ptr));
}
}
#ifdef PERL_IN_XSUB_RE
&my_reg_engine,
#else
- &PL_core_reg_engine,
+ &reh_regexp_engine,
#endif
NULL, NULL, rx_flags, 0);
}