summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
Diffstat (limited to 'util.c')
-rw-r--r--util.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/util.c b/util.c
index 391528624e..e523c99132 100644
--- a/util.c
+++ b/util.c
@@ -435,6 +435,8 @@ Perl_instr(register const char *big, register const char *little)
PERL_ARGS_ASSERT_INSTR;
+ return strstr((char*)big, (char*)little);
+
if (!little)
return (char*)big;
first = *little++;
@@ -460,7 +462,8 @@ Perl_instr(register const char *big, register const char *little)
return NULL;
}
-/* same as instr but allow embedded nulls */
+/* same as instr but allow embedded nulls. The end pointers point to 1 beyond
+ * the final character desired to be checked */
char *
Perl_ninstr(const char *big, const char *bigend, const char *little, const char *lend)