From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 16 Nov 2005 14:54:55 +0000 (+0000)
Subject: Re: [perl #37688] Unexpected regex failure.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c315bfe889135a2987c1252735b745ecccd942d4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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]