integrate cfgperl changes#6174..6203 into mainline (first of several)

p4raw-link: @6203 on //depot/cfgperl: fecfaeb8bbdf3ab93ea88558d0ee3a60234c5047
p4raw-link: @6174 on //depot/metaconfig: cfd1a6dce7dce25772bf4f5399e251457574eeeeon //depot/cfgperl: 12ae5dfcd4fd6f54af051c41b2e122532efce8d3

p4raw-id: //depot/perl@6343

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index f341d58396..1a9416eb5b 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;