diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-06-10 10:01:18 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-06-10 10:01:18 +0200 |
commit | b00fc8d41de1694e3f43042249a46dd72bd0163a (patch) | |
tree | 4ca34a0c80267b16d410ba9ae86daea4c4036a6c /toke.c | |
parent | c2485e0c886f5e7d6fd27b65f085b0ba231ca557 (diff) | |
download | perl-b00fc8d41de1694e3f43042249a46dd72bd0163a.tar.gz |
Parameters for * in *printf must be int - add a cast to ensure this.
Fixes a (legitimate) compiler warning present since 6e1bad6cc227c8e8.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3270,7 +3270,8 @@ S_scan_const(pTHX_ char *start) * should the trailing NUL be missing that this * print won't run off the end of the string */ Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), - "Deprecated character in \\N{...}; marked by <-- HERE in \\N{%.*s<-- HERE %.*s", i - s + 1, s, e - i, i + 1); + "Deprecated character in \\N{...}; marked by <-- HERE in \\N{%.*s<-- HERE %.*s", + (int)(i - s + 1), s, (int)(e - i), i + 1); } } } /* End \N{NAME} */ |