From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 4 Mar 2001 18:06:21 +0000 (+0000)
Subject: I thought I tested the #9014.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c95f590e1d3e90413f423893f54acc0b5dc228c;p=p5sagit%2Fp5-mst-13.2.git

I thought I tested the #9014.

p4raw-id: //depot/perl@9017
---

diff --git a/toke.c b/toke.c
index f68eac8..e312c4e 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+...}");