signature sub (\x80 triggered an assertion

[perl5.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index 811eca2..4e4b4fd 100644 (file)
--- 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;
             }