From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 18 Oct 2007 09:45:47 +0000 (+0000)
Subject: Silence a casting warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c099d646ae4693eeb591d4c8cd9b629962f6b7e4;p=p5sagit%2Fp5-mst-13.2.git

Silence a casting warning

p4raw-id: //depot/perl@32128
---

diff --git a/toke.c b/toke.c
index fb83407..c992e8a 100644
--- 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); */