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 (file)
--- 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