PATCH: [perl #133999] Assertion failure in regex match

This was caused by failing to limit matching to within the bounds of the
target string.  I'm pretty sure this bug has long been there, but was
exposed by the recently added wildcard property matching feature.

1 files changed, 6 insertions, 3 deletions

diff --git a/regexec.c b/regexec.c
index 48ed8c3524..bd6e4b9d96 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1972,9 +1972,12 @@ STMT_START {
     }
 
 /* This is the macro to use when we want to see if something that looks like it
- * could match, actually does, and if so exits the loop */
-#define REXEC_FBC_TRYIT                            \
-    if ((reginfo->intuit || regtry(reginfo, &s)))  \
+ * could match, actually does, and if so exits the loop.  It needs to be used
+ * only for bounds checking macros, as it allows for matching beyond the end of
+ * string (which should be zero length without having to look at the string
+ * contents) */
+#define REXEC_FBC_TRYIT                                                     \
+    if ((reginfo->intuit || (s <= reginfo->strend && regtry(reginfo, &s)))) \
         goto got_it
 
 /* The only difference between the BOUND and NBOUND cases is that