Change 34202 by [EMAIL PROTECTED] on 2008/08/12 12:40:04
Subject: RE: [perl #35877] Strange regex failure?
From: Bram <[EMAIL PROTECTED]>
Date: Sun, 03 Aug 2008 16:35:29 +0200
Message-ID: <[EMAIL PROTECTED]>
(Adds tests for perl #35877, which was fixed by change 29441)
Affected files ...
... //depot/perl/t/op/re_tests#132 edit
Differences ...
==== //depot/perl/t/op/re_tests#132 (text) ====
Index: perl/t/op/re_tests
--- perl/t/op/re_tests#131~34116~ 2008-07-09 10:22:47.000000000 -0700
+++ perl/t/op/re_tests 2008-08-12 05:40:04.000000000 -0700
@@ -1344,7 +1344,10 @@
.*?(?:(\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
End of Patch.
