From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 20 Feb 2009 13:45:36 +0000 (+0100)
Subject: Silence a casting warning with memchr()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e42f52dd7fa9b0bf0979b5795fdd19196265e1f8;p=p5sagit%2Fp5-mst-13.2.git

Silence a casting warning with memchr()
---

diff --git a/perl.c b/perl.c
index 512e47a..ce6c383 100644
--- a/perl.c
+++ b/perl.c
@@ -4558,7 +4558,7 @@ S_incpush_use_sep(pTHX_ const char *p, STRLEN len, U32 flags)
     end = p + len;
 
     /* Break at all separators */
-    while ((s = memchr(p, PERLLIB_SEP, end - p))) {
+    while ((s = (const char*)memchr(p, PERLLIB_SEP, end - p))) {
 	if (s == p) {
 	    /* skip any consecutive separators */