Regex debugging fixes from Hugo.

p4raw-id: //depot/perl@12858

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index 0a63f2233a..efc1275cb5 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4415,7 +4415,7 @@ Perl_regprop(pTHX_ SV *sv, regnode *o)
 
     if (k == EXACT) {
         SV *dsv = sv_2mortal(newSVpvn("", 0));
-	bool do_utf8 = PL_reg_match_utf8;
+	bool do_utf8 = DO_UTF8(sv);
 	char *s    = do_utf8 ?
 	  pv_uni_display(dsv, (U8*)STRING(o), STR_LEN(o), 60, 0) :
 	  STRING(o);