Cast parameters to instr, strstr

This code isn't apparently compiled on modern platforms, as when I tried
to force them to compile, I had to do this.

diff --git a/mathoms.c b/mathoms.c
index b490049..19b0154 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1294,7 +1294,7 @@ Perl_instr(const char *big, const char *little)
 {
     PERL_ARGS_ASSERT_INSTR;
 
-    return instr((char *) big, (char *) little);
+    return instr(big, little);
 }
 
 SV *

diff --git a/util.h b/util.h
index 7d06fea..df0c7ad 100644 (file)
--- a/util.h
+++ b/util.h
@@ -248,7 +248,7 @@ returning NULL if not found.  The terminating NUL bytes are not compared.
 */
 
 
-#define instr(haystack, needle) strstr(haystack, needle)
+#define instr(haystack, needle) strstr((char *) haystack, (char *) needle)
 
 #ifdef HAS_MEMMEM
 #   define ninstr(big, bigend, little, lend)                                \