Unicode s/// buglet found by Gregor Chrupala in perl-unicode.

p4raw-id: //depot/perl@17353

1 files changed, 2 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index de2dec4464..22c54fcfde 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2089,6 +2089,8 @@ PP(pp_subst)
 	    SPAGAIN;
 	}
 	SvTAINT(TARG);
+	if (doutf8)
+	    SvUTF8_on(TARG);
 	LEAVE_SCOPE(oldsave);
 	RETURN;
     }