From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 15 Sep 2000 03:11:44 +0000 (+0000)
Subject: Fix for the charnames.t failures from Spider Boardman.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4f3eed8bcfa8c8e53e369607ee2ad91c3140727;p=p5sagit%2Fp5-mst-13.2.git

Fix for the charnames.t failures from Spider Boardman.

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

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