X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=src%2F5017002%2Fregcomp.c;h=aa43f81e283e931cf46e78860e3892a8df22a5a8;hb=3199c7cdba6c6921011393c8ba50afad202e11e6;hp=5edf0fd05cd5649c61693a0b4cc3c8c42020a270;hpb=e1f0ecadfeae6b5f375598ec7ff99aee92b81979;p=perl%2Fmodules%2Fre-engine-Hooks.git

diff --git a/src/5017002/regcomp.c b/src/5017002/regcomp.c
index 5edf0fd..aa43f81 100644
--- a/src/5017002/regcomp.c
+++ b/src/5017002/regcomp.c
@@ -4922,19 +4922,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));
     }
 }