RT #96354: \h \H \v and \V didn't check for EOL

The HORIZWS and similar regexp ops didn't check that the end of the string
had been reached; therefore they would blithely compare against the \0 at
the end of the string, or beyond.

1 files changed, 4 insertions, 0 deletions

diff --git a/regexec.c b/regexec.c
index 76c91af1f7..bdd5e3faed 100644
--- a/regexec.c
+++ b/regexec.c
@@ -5683,6 +5683,8 @@ NULL
 
 #define CASE_CLASS(nAmE)                              \
         case nAmE:                                    \
+	    if (locinput >= PL_regeol)                \
+		sayNO;                                \
             if ((n=is_##nAmE(locinput,utf8_target))) {    \
                 locinput += n;                        \
                 nextchr = UCHARAT(locinput);          \
@@ -5690,6 +5692,8 @@ NULL
                 sayNO;                                \
             break;                                    \
         case N##nAmE:                                 \
+	    if (locinput >= PL_regeol)                \
+		sayNO;                                \
             if ((n=is_##nAmE(locinput,utf8_target))) {    \
                 sayNO;                                \
             } else {                                  \