I thought I tested the #9014.

p4raw-id: //depot/perl@9017

1 files changed, 2 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index f68eac8f44..e312c4eef1 100644
--- a/toke.c
+++ b/toke.c
@@ -1539,9 +1539,9 @@ S_scan_const(pTHX_ char *start)
 			    res = newSVpvn(s, (uv >> 8) + 1); /* filler */
 			    str = (char *)uv_to_utf8((U8*)SvPVX(res), uv);
 			    SvCUR_set(res, str - SvPVX(res));
-			    *str = 0;
+			    *str = '\0';
 			    if (uv > 0x7f)
-				has_utf8 = TRUE;
+				SvUTF8_on(res);
 			}
 			else {
 			    yyerror("Illegal hexadecimal code on \\N{U+...}");