From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 31 May 2000 21:47:33 +0000 (+0000)
Subject: Substitution utf8 patch from Simon Cozens.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80b498e0aacf413fb7460d6882a74c68c1f9df48;p=p5sagit%2Fp5-mst-13.2.git

Substitution utf8 patch from Simon Cozens.

p4raw-id: //depot/cfgperl@6177
---

diff --git a/pp_hot.c b/pp_hot.c
index 6bec999..ede5342 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1887,7 +1887,7 @@ PP(pp_subst)
 	    SPAGAIN;
 	    PUSHs(sv_2mortal(newSViv((I32)iters)));
 	}
-	(void)SvPOK_only(TARG);
+	(void)SvPOK_only_UTF8(TARG);
 	TAINT_IF(rxtainted);
 	if (SvSMAGICAL(TARG)) {
 	    PUTBACK;