mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

utf8.c: Clarify comment

Browse Source
This commit is contained in:
Karl Williamson 2025-10-22 06:30:11 -06:00 committed by Karl Williamson
parent 2b72566df3
commit 8009da5632
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utf8.c
View File

@ -3090,7 +3090,7 @@ Perl_utf8_to_bytes_(pTHX_ U8 **s_ptr, STRLEN *lenp, void ** free_me,
}
}
/* Do the straggler bytes beyond what the loop above did */
/* Do the straggler bytes beyond the final word boundary */
while (s < send) {
if (! UTF8_IS_INVARIANT(*s)) {
if (! UTF8_IS_NEXT_CHAR_DOWNGRADEABLE(s, send)) {