5 files changed, 0 insertions, 7 deletions

diff --git a/perl.c b/perl.c
index 9f4176890f..a39d66fb6b 100644
--- a/perl.c
+++ b/perl.c
@@ -2808,7 +2808,6 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
     myop.op_flags |= OP_GIMME_REVERSE(flags);
     if (flags & G_KEEPERR)
 	myop.op_flags |= OPf_SPECIAL;
-    assert (! (!!(PL_reg_state.re_reparsing ^ !!(flags & G_RE_REPARSING))));
 
     if (flags & G_RE_REPARSING)
 	myop.op_private = (OPpEVAL_COPHH | OPpEVAL_RE_REPARSING);
diff --git a/regcomp.c b/regcomp.c
index 9873aafe38..0849a9716e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5006,7 +5006,6 @@ S_compile_runtime_code(pTHX_ RExC_state_t * const pRExC_state,
         /* G_RE_REPARSING causes the toker to collapse \\ into \ when
          * parsing qr''; normally only q'' does this. It also alters
          * hints handling */
-	PL_reg_state.re_reparsing = TRUE;
 	eval_sv(sv, G_SCALAR|G_RE_REPARSING);
 	SvREFCNT_dec_NN(sv);
 	SPAGAIN;
@@ -5634,7 +5633,6 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
      * from the compile flags.
      */
 
-    assert (!(!!(PL_reg_state.re_reparsing ^ !!(PL_in_eval & EVAL_RE_REPARSING))));
     if (   old_re
         && !recompile
         && !!RX_UTF8(old_re) == !!RExC_utf8
diff --git a/regexec.c b/regexec.c
index 017cbfff00..bb6c958f7a 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4878,7 +4878,6 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
 		 */
 		Copy(&PL_reg_state, &saved_state, 1, struct re_save_state);
 
-		PL_reg_state.re_reparsing = FALSE;
                 PL_in_eval &= ~EVAL_RE_REPARSING;
 
 		if (!caller_cv)
diff --git a/regexp.h b/regexp.h
index 6b16d14593..31fb879c66 100644
--- a/regexp.h
+++ b/regexp.h
@@ -776,7 +776,6 @@ typedef struct regmatch_slab {
 struct re_save_state {
     bool re_state_eval_setup_done;	/* from regexec.c */
     bool re_state_reg_match_utf8;	/* from regexec.c */
-    bool re_reparsing;			/* runtime (?{}) fed back into parser */
     /* Space for U8 */
     I32 re_state_reg_oldpos;		/* from regexec.c */
     I32 re_state_reg_maxiter;		/* max wait until caching pos */
diff --git a/toke.c b/toke.c
index 929bdee517..4581bfdc1a 100644
--- a/toke.c
+++ b/toke.c
@@ -9514,14 +9514,12 @@ S_scan_pat(pTHX_ char *start, I32 type)
 
     PERL_ARGS_ASSERT_SCAN_PAT;
 
-    assert (!(!!(PL_reg_state.re_reparsing ^ !!(PL_in_eval & EVAL_RE_REPARSING))));
     s = scan_str(start,!!PL_madskills,FALSE, (PL_in_eval & EVAL_RE_REPARSING),
                        TRUE /* look for escaped bracketed metas */ );
 
     /* this was only needed for the initial scan_str; set it to false
      * so that any (?{}) code blocks etc are parsed normally */
     PL_in_eval &= ~EVAL_RE_REPARSING;
-    PL_reg_state.re_reparsing = FALSE;
     if (!s) {
 	const char * const delimiter = skipspace(start);
 	Perl_croak(aTHX_