From: Karl Williamson <public@khwilliamson.com>
Date: Tue, 15 Feb 2011 17:02:55 +0000 (-0700)
Subject: toke.c: silence win32 compiler warning
X-Git-Tag: accepted/trunk/20130322.191538~5545
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9d8a3661cb9e691c8f2dd4220407a22da2569058;p=platform%2Fupstream%2Fperl.git

toke.c: silence win32 compiler warning
---

diff --git a/toke.c b/toke.c
index a2fba3c..fc6b8df 100644
--- a/toke.c
+++ b/toke.c
@@ -4328,7 +4328,7 @@ Perl_yylex(pTHX)
 		    if (PL_lex_brackets > 100)
 			Renew(PL_lex_brackstack, PL_lex_brackets + 10, char);
 		    PL_lex_brackstack[PL_lex_brackets++] =
-			(next_type >> 16) & 0xff;
+			(char) ((next_type >> 16) & 0xff);
 		}
 		if (next_type & (2<<24))
 		    PL_lex_allbrackets++;