This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Fix too-small SvGROW()
authorKarl Williamson <khw@cpan.org>
Wed, 28 Dec 2016 02:37:33 +0000 (19:37 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 3 Jan 2017 04:46:41 +0000 (21:46 -0700)
commit2916094f340070aac2552b1836d61c69607559de
tree9be01141bb23a4bebd1c8b302ca0e555086596fc
parentb73e60d1ecb44d0f32cd92f3b9ba898ee62ab49b
toke.c: Fix too-small SvGROW()

This might be a bug on EBCDIC, but not ASCII platforms.  The code forgot
that SvGROW takes a total size, and not an incremental size.  So, this
is most likely a no-op, but I believe there are no cases on ASCII
platforms where this actually needs to grow, and on EBCDIC, it would
only be very large, way above Unicode, code points.  Grows in later
iterations of the loop would recover to grow to the correct size, unless
this EBCDIC escape sequence was the final thing there.
toke.c