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