More (less) regex/utf8 relics. (Toned down later in #11653.)

p4raw-id: //depot/perl@11651

1 files changed, 0 insertions, 9 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 1605e21684..8a187b04fa 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -121,16 +121,7 @@ PP(pp_regcomp)
 		PL_reginterp_cnt = I32_MAX; /* Mark as safe.  */
 
 	    pm->op_pmflags = pm->op_pmpermflags;	/* reset case sensitivity */
-	    if (DO_UTF8(tmpstr))
-		pm->op_pmdynflags |= PMdf_DYN_UTF8;
-	    else {
-		pm->op_pmdynflags &= ~PMdf_DYN_UTF8;
-		if (pm->op_pmdynflags & PMdf_UTF8)
-		    t = (char*)bytes_to_utf8((U8*)t, &len);
-	    }
 	    PM_SETRE(pm, CALLREGCOMP(aTHX_ t, t + len, pm));
-	    if (!DO_UTF8(tmpstr) && (pm->op_pmdynflags & PMdf_UTF8))
-		Safefree(t);
 	    PL_reginterp_cnt = 0;	/* XXXX Be extra paranoid - needed
 					   inside tie/overload accessors.  */
 	}