summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-01-29 22:01:18 -0700
committerKarl Williamson <khw@cpan.org>2019-02-04 21:00:50 -0700
commitf4cd1cd9e8d271b135a75b4b6fd817fa758c112a (patch)
tree96de289855334bc643414436e1078fa0b384ae1c /pp.c
parent1c4079115ad9f58e29e98bd09de8772737e77be5 (diff)
downloadperl-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.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/pp.c b/pp.c
index 880f266081..cde8fa51f7 100644
--- a/pp.c
+++ b/pp.c
@@ -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 */