From: Bram <perl-rt@wizbit.be>
Date: Sun, 3 Aug 2008 16:35:29 +0000 (+0200)
Subject: RE: [perl #35877] Strange regex failure?
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2811b8367c43e9764f1551138ba9713a2c0f557a;p=p5sagit%2Fp5-mst-13.2.git

RE: [perl #35877] Strange regex failure?
Message-ID: <20080803163529.bd73ojeg2s4ow0w4@horde.wizbit.be>

(Adds tests for perl #35877, which was fixed by change 29441)

p4raw-id: //depot/perl@34202
---

diff --git a/t/op/re_tests b/t/op/re_tests
index 4013ab6..ddeb55c 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -1344,7 +1344,10 @@ foo(\h)bar	foo\tbar	y	$1	\t
 .*?(?:(\w)|(\w))x	abx	y	$1-$2	b-
 
 0{50}	000000000000000000000000000000000000000000000000000	y	-	-
-# Bug #56690
-^a?(?=b)b	ab	B	$&	ab
-^a*(?=b)b	ab	B	$&	ab
-
+^a?(?=b)b	ab	B	$&	ab	# Bug #56690
+^a*(?=b)b	ab	B	$&	ab	# Bug #56690
+/>\d+$ \n/ix	>10\n	y	$&	>10
+/>\d+$ \n/ix	>1\n	y	$&	>1
+/\d+$ \n/ix	>10\n	y	$&	10
+/>\d\d$ \n/ix	>10\n	y	$&	>10
+/>\d+$ \n/x	>10\n	y	$&	>10