X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Hooks.git;a=blobdiff_plain;f=src%2F5017003%2Fregcomp.c;h=113e94394a3838c8fb28c6d45fc3b03ae1058a31;hp=0ffc3a2e8c295e83644d658e895f23fb7cedbdef;hb=f609ee10b4b981c6c131936a39d13108d608a4fc;hpb=21c1861888f69168d6ade4690b79b806752f56d8

diff --git a/src/5017003/regcomp.c b/src/5017003/regcomp.c
index 0ffc3a2..113e943 100644
--- a/src/5017003/regcomp.c
+++ b/src/5017003/regcomp.c
@@ -4929,19 +4929,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));
     }
 }
@@ -4979,7 +4979,7 @@ Perl_re_compile(pTHX_ SV * const pattern, U32 rx_flags)
 #ifdef PERL_IN_XSUB_RE
                                 &my_reg_engine,
 #else
-                                &PL_core_reg_engine,
+                                &reh_regexp_engine,
 #endif
                                 NULL, NULL, rx_flags, 0);
 }