This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Document instr()
authorKarl Williamson <khw@cpan.org>
Fri, 30 Aug 2019 19:49:36 +0000 (13:49 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 3 Sep 2019 03:52:10 +0000 (21:52 -0600)
embed.fnc
t/porting/known_pod_issues.dat
util.h

index cec3e1d..2252381 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -817,7 +817,7 @@ p   |void   |init_debugger
 Ap     |void   |init_stacks
 Ap     |void   |init_tm        |NN struct tm *ptm
 : Used in perly.y
-AbMTpPR        |char*  |instr          |NN const char* big|NN const char* little
+AbMTpPRd|char* |instr          |NN const char* big|NN const char* little
 : Used in sv.c
 p      |bool   |io_close       |NN IO* io|NULLOK GV *gv \
                                |bool not_implicit|bool warn_on_fail
index 45e1491..c518e86 100644 (file)
@@ -296,6 +296,7 @@ strftime(3)
 strictures
 String::Base
 String::Scanf
+strstr(3)
 strtol(3)
 Switch
 tar(1)
diff --git a/util.h b/util.h
index d9df7b3..4bc15f6 100644 (file)
--- a/util.h
+++ b/util.h
@@ -233,6 +233,16 @@ means arg not present, 1 is empty string/null byte */
 #  define HS_CXT cv
 #endif
 
+/*
+=for apidoc instr
+Same as L<strstr(3)>, which finds and returns a pointer to the first occurrence
+of the NUL-terminated substring C<little> in the NUL-terminated string C<big>,
+returning NULL if not found.  The terminating NUL bytes are not compared.
+
+=cut
+*/
+
+
 #define instr(haystack, needle) strstr(haystack, needle)
 
 #ifdef HAS_MEMMEM