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

[p5sagit/p5-mst-13.2.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index 85804ab..c6dbcc0 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -373,7 +373,7 @@ Perl_pregexec(pTHX_ REGEXP * const prog, char* stringarg, register char *strend,
 
 char *
 Perl_re_intuit_start(pTHX_ REGEXP * const prog, SV *sv, char *strpos,
-                    char *strend, U32 flags, re_scream_pos_data *data)
+                    char *strend, const U32 flags, re_scream_pos_data *data)
 {
     dVAR;
     register I32 start_shift = 0;
@@ -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);
@@ -5017,7 +5017,7 @@ NULL
                 char *e = PL_regeol;
                 to_uni_fold(n, folded, &foldlen);
 
-                if (ibcmp_utf8(folded, 0,  foldlen, 1,
+               if (ibcmp_utf8((const char*) folded, 0,  foldlen, 1,
                               l, &e, 0,  do_utf8)) {
                         sayNO;
                 }