diff --git a/toke.c b/toke.c index 2a7e0e504852..53857005992f 100644 --- 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;