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 (file)
--- 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;