From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 20 Feb 2002 18:06:59 +0000 (+0000)
Subject: Re: Re-posts of some unresolved bleadperl bugreports
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=13f46d054db22cf418c3e9b6eec1e2f44fc2bf57;p=p5sagit%2Fp5-mst-13.2.git

Re: Re-posts of some unresolved bleadperl bugreports
   Message-Id: <200202201807.g1KI6xj08220@crypt.compulink.co.uk>

p4raw-id: //depot/perl@14795
---

diff --git a/pp_ctl.c b/pp_ctl.c
index c60f7dc..eb13949 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -158,6 +158,7 @@ PP(pp_substcont)
     register REGEXP *rx = cx->sb_rx;
 
     rxres_restore(&cx->sb_rxres, rx);
+    PL_reg_match_utf8 = SvUTF8(cx->sb_targ) ? 1 : 0;
 
     if (cx->sb_iters++) {
 	I32 saviters = cx->sb_iters;