From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 Apr 2000 08:13:52 +0000 (+0000)
Subject: POSIX-BC tweak (from Ignasi Roca <ignasi.roca@fujitsu.siemens.es>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=774a9426b458453030df1c98b66ac127ef21eeb4;p=p5sagit%2Fp5-mst-13.2.git

POSIX-BC tweak (from Ignasi Roca <ignasi.roca@fujitsu.siemens.es>)

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

diff --git a/toke.c b/toke.c
index 48dad64..2035c3f 100644
--- a/toke.c
+++ b/toke.c
@@ -1510,7 +1510,8 @@ S_scan_const(pTHX_ char *start)
 		*d = *s++;
 		if (isLOWER(*d))
 		   *d = toUPPER(*d);
-		*d++ = toCTRL(*d); 
+		*d = toCTRL(*d); 
+		d++;
 #else
 		len = *s++;
 		*d++ = toCTRL(len);