diff options
author | Karl Williamson <khw@cpan.org> | 2022-03-31 08:14:14 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-05-27 21:49:44 -0600 |
commit | 602ec335901a7c187560cdffa84a8e6a134fa3df (patch) | |
tree | c7f02173e82a058c1e4ce19c5ba7a26016964ca4 | |
parent | 99df0210877da2cf8a8c220fc9cbe2d07ca989d7 (diff) | |
download | perl-602ec335901a7c187560cdffa84a8e6a134fa3df.tar.gz |
Add asserts for memmem parameters
-rw-r--r-- | util.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -247,7 +247,9 @@ returning NULL if not found. The terminating NUL bytes are not compared. #ifdef HAS_MEMMEM # define ninstr(big, bigend, little, lend) \ - ((char *) memmem((big), (bigend) - (big), \ + (__ASSERT_(bigend >= big) \ + __ASSERT_(lend >= little) \ + (char *) memmem((big), (bigend) - (big), \ (little), (lend) - (little))) #else # define ninstr(a,b,c,d) Perl_ninstr(a,b,c,d) |