Re: [perl #37688] Unexpected regex failure.

Message-Id: <200511161454.jAGEst117787@zen.crypt.org>

p4raw-id: //depot/perl@26137

diff --git a/regexec.c b/regexec.c
index e058216..6e234a2 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -518,6 +518,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
                     || ((slen = SvCUR(check)) > 1
                         && memNE(SvPVX_const(check), s, slen)))
                goto report_neq;
+           check_at = s;
            goto success_at_start;
          }
        }

diff --git a/t/op/re_tests b/t/op/re_tests
index 28deb0f..8520d99 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -958,3 +958,4 @@ x(?#        x       c       -       Sequence (?#... not terminated
 (a|aa|aaa|aaaa|aaaaa|aaaaaa)(??{$1&&"foo"})(b|c)       aaaaaaaaaaaaaaab        n       -       -
 ^(a*?)(?!(aa|aaaa)*$)  aaaaaaaaaaaaaaaaaaaa    y       $1      a       # [perl #34195]
 ^(a*?)(?!(aa|aaaa)*$)(?=a\z)   aaaaaaaa        y       $1      aaaaaaa
+^(.)\s+.$(?(1))        A B     y       $1      A       # [perl #37688]