From e4f3eed8bcfa8c8e53e369607ee2ad91c3140727 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 15 Sep 2000 03:11:44 +0000
Subject: [PATCH] Fix for the charnames.t failures from Spider Boardman.

p4raw-id: //depot/perl@7093
---
 toke.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/toke.c b/toke.c
index 9821201..783f282 100644
--- a/toke.c
+++ b/toke.c
@@ -1489,6 +1489,7 @@ S_scan_const(pTHX_ char *start)
 			char *ostart = SvPVX(sv);
 			SvCUR_set(sv, d - ostart);
 			SvPOK_on(sv);
+			*d = '\0';
 			sv_utf8_upgrade(sv);
 			/* this just broke our allocation above... */
 			SvGROW(sv, send - start);
-- 
2.7.4