From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Dec 2000 08:16:36 +0000 (+0000)
Subject: Use DO_UTF8().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1fd7b382eb5ca3319d348e9dd480e367cfb666fa;p=p5sagit%2Fp5-mst-13.2.git

Use DO_UTF8().

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

diff --git a/op.c b/op.c
index 3b04fc0..9d00b7b 100644
--- a/op.c
+++ b/op.c
@@ -2908,7 +2908,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl)
 	    p = SvPV(pat, plen);
 	    pm->op_pmflags |= PMf_SKIPWHITE;
 	}
-	if ((PL_hints & HINT_UTF8) || (SvUTF8(pat) && !(PL_hints & HINT_BYTE)))
+	if ((PL_hints & HINT_UTF8) || DO_UTF8(pat))
 	    pm->op_pmdynflags |= PMdf_UTF8;
 	pm->op_pmregexp = CALLREGCOMP(aTHX_ p, p + plen, pm);
 	if (strEQ("\\s+", pm->op_pmregexp->precomp))