From: Yves Orton <demerphq@gmail.com>
Date: Fri, 26 Oct 2012 09:41:10 +0000 (+0200)
Subject: silence warning in toke.c charnames support
X-Git-Tag: upstream/5.20.0~5016
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=97e916ed683ce1dd68d3c930724281ece2649ebb;p=platform%2Fupstream%2Fperl.git

silence warning in toke.c charnames support

In a C sprintf the expectation is that * parameters are type "int".
---

diff --git a/toke.c b/toke.c
index 8500573..45468b3 100644
--- a/toke.c
+++ b/toke.c
@@ -8935,7 +8935,7 @@ S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, STRLEN keylen,
             if (strEQ(key,"charnames")) {
                 msg = Perl_newSVpvf(aTHX_
                         /* The +3 is for '\N{'; -4 for that, plus '}' */
-                        "Unknown charname '%.*s'", typelen - 4, type + 3);
+                        "Unknown charname '%.*s'", (int)typelen - 4, type + 3);
             }
             else {
                 msg = Perl_newSVpvf(aTHX_ "Constant(%s): %s%s%s",