Silence a casting warning

p4raw-id: //depot/perl@32128

diff --git a/toke.c b/toke.c
index fb83407..c992e8a 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -6918,7 +6918,7 @@ S_pending_ident(pTHX)
     char pit = PL_pending_ident;
     const STRLEN tokenbuf_len = strlen(PL_tokenbuf);
     /* All routes through this function want to know if there is a colon.  */
-    const char *const has_colon = memchr (PL_tokenbuf, ':', tokenbuf_len);
+    const char *const has_colon = (const char*) memchr (PL_tokenbuf, ':', tokenbuf_len);
     PL_pending_ident = 0;
 
     /* PL_realtokenstart = realtokenend = PL_bufptr - SvPVX(PL_linestr); */