Fix infinite recursion with perl 5.17.[12]

[perl/modules/re-engine-Hooks.git] / src / 5017001 / regcomp.c

diff --git a/src/5017001/regcomp.c b/src/5017001/regcomp.c
index bfc83be89eb55921d11a2b5bc0d6aef8fc5e30d1..d61977ebb31ff044cefa4bee9c90582711519513 100644 (file)
--- a/src/5017001/regcomp.c
+++ b/src/5017001/regcomp.c
@@ -4914,19 +4914,19 @@ Perl_current_re_engine(pTHX)
        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));
     }
 }