summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-06-10 10:01:18 +0200
committerNicholas Clark <nick@ccl4.org>2010-06-10 10:01:18 +0200
commitb00fc8d41de1694e3f43042249a46dd72bd0163a (patch)
tree4ca34a0c80267b16d410ba9ae86daea4c4036a6c /toke.c
parentc2485e0c886f5e7d6fd27b65f085b0ba231ca557 (diff)
downloadperl-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.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 8a4af48335..daa60a18ed 100644
--- a/toke.c
+++ b/toke.c
@@ -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} */