We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 6366047 commit b12a54fCopy full SHA for b12a54f
utf8.c
@@ -2518,7 +2518,6 @@ Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *lenp)
2518
U8 * d = s = first_variant;
2519
2520
while (s < send) {
2521
- U8 * s1;
2522
2523
if (UVCHR_IS_INVARIANT(*s)) {
2524
*d++ = *s++;
@@ -2561,7 +2560,7 @@ Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *lenp)
2561
2560
* byte that will be the source for the first byte (or bytes) at
2562
* 's' that need to be changed back. Note that s1 can expand to
2563
* two bytes */
2564
- s1 = d;
+ U8 * s1 = d;
2565
while (s >= d) {
2566
s--;
2567
if (! UVCHR_IS_INVARIANT(*s1)) {
0 commit comments