This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence a casting warning
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 18 Oct 2007 09:45:47 +0000 (09:45 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 18 Oct 2007 09:45:47 +0000 (09:45 +0000)
p4raw-id: //depot/perl@32128

toke.c

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); */