toke.c: Variable should be decleared Size_t, not SSize_t

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index b68099d422..895dd173fe 100644
--- a/toke.c
+++ b/toke.c
@@ -852,7 +852,7 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *rsfp, U32 flags)
     Newxz(parser->lex_shared, 1, LEXSHARED);
 
     if (line) {
-        STRLEN len;
+        Size_t len;
         const U8* first_bad_char_loc;
 
         s = SvPV_const(line, len);