[Patch t/op/re_tests] Re: [perl #56690] Some bugs in Perl regexp (core Perl issues)

Message-ID: <20080708164836.GB4537@almanda>

p4raw-id: //depot/perl@34116

diff --git a/t/op/re_tests b/t/op/re_tests
index 6894458..4013ab6 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -1344,4 +1344,7 @@ 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