From 5700b71cd8484a5485a9fb0bdde355ded1194121 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 12 Aug 2001 21:08:06 +0000 Subject: More (less) regex/utf8 relics. (Toned down later in #11653.) p4raw-id: //depot/perl@11651 --- pp_ctl.c | 9 --------- 1 file changed, 9 deletions(-) (limited to 'pp_ctl.c') 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. */ } -- cgit v1.2.1