From 84e09d5e9b0e8f355853f7c768e322224fb09c76 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 12 Aug 2001 22:46:12 +0000 Subject: Not quite so relicy as thought in #11651 (op/concat #4 and #5 stopped working). p4raw-id: //depot/perl@11653 --- pp_ctl.c | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index 8a187b04fa..1605e21684 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -121,7 +121,16 @@ 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