[perl #18232] [PATCH] store PL_reg_match_utf8 in reganch

Message-Id: <20030122223556.57d597a3.rgarciasuarez@free.fr>

p4raw-id: //depot/perl@18633

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 7c0f8bad68..a08e2b61a8 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -158,7 +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;
+    RX_MATCH_UTF8_set(rx, SvUTF8(cx->sb_targ));
 
     if (cx->sb_iters++) {
 	I32 saviters = cx->sb_iters;