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

p4raw-id: //depot/perl@5925

1 files changed, 2 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 48dad64e93..2035c3f1d9 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);