diff options
author | Karl Williamson <khw@cpan.org> | 2019-02-01 11:43:10 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-02-04 21:00:50 -0700 |
commit | dbb3849a8c02c652b48b25b770fc36b743b162db (patch) | |
tree | b7177d1a50305df54c058ecac6acb2e721e715a1 /invlist_inline.h | |
parent | 02601e33951e916a19e46272146a0b59862aaff5 (diff) | |
download | perl-dbb3849a8c02c652b48b25b770fc36b743b162db.tar.gz |
pp.c: Avoid use of unsafe function
The function is unsafe because it doesn't check for running off the end
of the buffer if presented with illegal UTF-8. The only remaining use
now is from mathoms.c.
Diffstat (limited to 'invlist_inline.h')
-rw-r--r-- | invlist_inline.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/invlist_inline.h b/invlist_inline.h index cd002cef19..1304b4543a 100644 --- a/invlist_inline.h +++ b/invlist_inline.h @@ -9,7 +9,7 @@ #ifndef PERL_INVLIST_INLINE_H_ #define PERL_INVLIST_INLINE_H_ -#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_TOKE_C) +#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_TOKE_C) || defined(PERL_IN_PP_C) /* An element is in an inversion list iff its index is even numbered: 0, 2, 4, * etc */ |