1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 8bffe0a1c9..fc997ad364 100644
--- a/toke.c
+++ b/toke.c
@@ -11088,7 +11088,7 @@ S_scan_inputsymbol(pTHX_ char *start)
        or if it didn't end, or if we see a newline
     */
 
-    if (len >= sizeof PL_tokenbuf)
+    if (len >= (I32)sizeof PL_tokenbuf)
 	Perl_croak(aTHX_ "Excessively long <> operator");
     if (s >= end)
 	Perl_croak(aTHX_ "Unterminated <> operator");