toke.c: Remove no longer used variable

The usage was removed in 8fbaa65. Fixes #22908
Perl · Jan 13, 2025 · 8282950 · 8282950
1 parent e13f0e4
commit 8282950
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/toke.c b/toke.c
@@ -1615,7 +1615,7 @@ Perl_lex_peek_unichar(pTHX_ U32 flags)
     if (UTF) {
         U8 head;
         I32 unichar;
-        STRLEN len, retlen;
+        STRLEN len;
         if (s == bufend) {
             if (!lex_next_chunk(flags))
                 return -1;