X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regexec.c;h=e69c4ffd4e617f382f34b32c271bab550064f4e7;hb=ffb4593ce8673bf9b750cef7f50a426a002fff80;hp=e40d1c7ea721985f602c9d38a04ed302b190967e;hpb=0033605d21c115bf932c13b3219a6ea9a9088d20;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regexec.c b/regexec.c
index e40d1c7..e69c4ff 100644
--- a/regexec.c
+++ b/regexec.c
@@ -321,6 +321,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 		 && (sv && (strpos + SvCUR(sv) != strend)) )
 		goto fail;
 
+	    PL_regeol = strend;			/* Used in HOP() */
 	    s = (char*)HOP((U8*)strpos, prog->check_offset_min);
 	    if (SvTAIL(prog->check_substr)) {
 		slen = SvCUR(prog->check_substr);	/* >= 1 */