From 774a9426b458453030df1c98b66ac127ef21eeb4 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 Apr 2000 08:13:52 +0000
Subject: [PATCH] POSIX-BC tweak (from Ignasi Roca
 <ignasi.roca@fujitsu.siemens.es>)

p4raw-id: //depot/perl@5925
---
 toke.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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