This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX-BC tweak (from Ignasi Roca <ignasi.roca@fujitsu.siemens.es>)
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 24 Apr 2000 08:13:52 +0000 (08:13 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 24 Apr 2000 08:13:52 +0000 (08:13 +0000)
p4raw-id: //depot/perl@5925

toke.c

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