X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/b3123a6146c9098bd93ca1ae1f6d6d6744ef9c4b..bbe252da68db3f0a4d00844fdb5e30bf18a0828f:/op.c

diff --git a/op.c b/op.c
index b484d54..48c9dcc 100644
--- a/op.c
+++ b/op.c
@@ -3327,7 +3327,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg)
 	if (curop == repl
 	    && !(repl_has_vars
 		 && (!PM_GETRE(pm)
-		     || PM_GETRE(pm)->reganch & ROPT_EVAL_SEEN))) {
+		     || PM_GETRE(pm)->extflags & RXf_EVAL_SEEN))) {
 	    pm->op_pmflags |= PMf_CONST;	/* const for long enough */
 	    pm->op_pmpermflags |= PMf_CONST;	/* const for long enough */
 	    prepend_elem(o->op_type, scalar(repl), o);