Some bugs in Perl regexp (core Perl issues)

[perl5.git] / t / op / re_tests

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