Re: [perl #43015] regex /.*\z/ doesn't matches strings ending with \n

Message-ID: <9b18b3110705281046ib37acb4i7960fe415325270f@mail.gmail.com>

p4raw-id: //depot/perl@31303

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index ba0f2b7562..c6dbcc0564 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1845,7 +1845,7 @@ Perl_regexec_flags(pTHX_ REGEXP * const prog, char *stringarg, register char *st
 		    if (regtry(&reginfo, &s))
 			goto got_it;
 		  after_try:
-		    if (s >= end)
+		    if (s > end)
 			goto phooey;
 		    if (prog->extflags & RXf_USE_INTUIT) {
 			s = re_intuit_start(prog, sv, s + 1, strend, flags, NULL);