X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/534dad482495d5659cc3fdec2b8189067f5c84e5..956f01add7c0213f2f704be1e381ba8c5c7622b7:/util.c

diff --git a/util.c b/util.c
index 447a19f..2f78825 100644
--- a/util.c
+++ b/util.c
@@ -584,6 +584,11 @@ char *
 Perl_ninstr(const char *big, const char *bigend, const char *little, const char *lend)
 {
     PERL_ARGS_ASSERT_NINSTR;
+
+#ifdef HAS_MEMMEM
+    return ninstr(big, bigend, little, lend);
+#else
+
     if (little >= lend)
         return (char*)big;
     {
@@ -602,6 +607,9 @@ Perl_ninstr(const char *big, const char *bigend, const char *little, const char
         }
     }
     return NULL;
+
+#endif
+
 }
 
 /*