summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2006-04-25 01:20:38 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-04-26 07:53:36 +0000
commitbb7a0f5422600fd7de7806825a1300a577b7e61f (patch)
tree822f6cd3d63d224843f4eba60c9f90fd3190d28f /toke.c
parentfcea4b7c99fe376a2295931b658ba7f41a47470e (diff)
downloadperl-bb7a0f5422600fd7de7806825a1300a577b7e61f.tar.gz
Re: [PATCH] cleanup 212 warnings emitted by gcc-4.2
Message-ID: <20060424232038.7550f9b6@r2d2> p4raw-id: //depot/perl@27962
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
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");