In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8975657c9f0008493ae520806e9c3ed354ddfd9c?hp=8298454cd9bef3c23473ec307d99840429f2df55>
- Log ----------------------------------------------------------------- commit 8975657c9f0008493ae520806e9c3ed354ddfd9c Author: Karl Williamson <[email protected]> Date: Wed Jan 25 21:17:09 2017 -0700 regexec.c: Clarify comment This now explains why we allow the input pointer to go off by 1 at the end. ----------------------------------------------------------------------- Summary of changes: regexec.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/regexec.c b/regexec.c index 811eca2c20..4e4b4fdfb5 100644 --- a/regexec.c +++ b/regexec.c @@ -8453,7 +8453,8 @@ NULL assert(!NEXTCHR_IS_EOS); if (utf8_target) { locinput += PL_utf8skip[nextchr]; - /* locinput is allowed to go 1 char off the end, but not 2+ */ + /* locinput is allowed to go 1 char off the end (signifying + * EOS), but not 2+ */ if (locinput > reginfo->strend) sayNO; } -- Perl5 Master Repository
