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));
}
}