diff options
author | Karl Williamson <khw@cpan.org> | 2019-01-29 22:01:18 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-02-04 21:00:50 -0700 |
commit | f4cd1cd9e8d271b135a75b4b6fd817fa758c112a (patch) | |
tree | 96de289855334bc643414436e1078fa0b384ae1c /pp.c | |
parent | 1c4079115ad9f58e29e98bd09de8772737e77be5 (diff) | |
download | perl-f4cd1cd9e8d271b135a75b4b6fd817fa758c112a.tar.gz |
pp.c: Add missing assert
The comments say there is an assert, but it wasn't there.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -3890,6 +3890,7 @@ PP(pp_ucfirst) /* Assert tculen is 2 here because the only two characters that * get to this part of the code have 2-byte UTF-8 equivalents */ + assert(tculen == 2); *d++ = *tmpbuf; *d++ = *(tmpbuf + 1); s++; /* We have just processed the 1st char */ |