This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The test case applied in change 29502 really should have gone at the
authorNicholas Clark <nick@ccl4.org>
Sun, 18 Mar 2007 21:14:16 +0000 (21:14 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 18 Mar 2007 21:14:16 +0000 (21:14 +0000)
end of the file t/op/re_tests.

p4raw-id: //depot/perl@30618

t/op/re_tests

index 6a590b1..aa07b56 100644 (file)
@@ -1013,7 +1013,6 @@ X(?<=foo.)[YZ]    ..XfooXY..      y       pos     8
 ^(??{q(.+)})\x{100}    \x{100}\x{100}  y       $&      \x{100}\x{100}
 ^(??{q(.)})\x{100}     \x{100}\x{100}  y       $&      \x{100}\x{100}
 ^(??{chr 0x100})\xbb   \x{100}\x{bb}   y       $&      \x{100}\x{bb}
-\x{100}?(??{""})xxx    xxx     y       $&      xxx
 ^(.)(??{"(.)(.)"})(.)$ abcd    y       $1-$2   a-d
 ^(.)(??{"(bz+|.)(.)"})(.)$     abcd    y       $1-$2   a-d
 ^(.)((??{"(.)(cz+)"})|.)       abcd    y       $1-$2   a-b
@@ -1283,3 +1282,4 @@ X(\w+)(?=\s)|X(\w+)       Xab     y       [$1-$2] [-ab]
 #Bug #41492
 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A)    a       y       $&      a
 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A)    aa      y       $&      aa
+\x{100}?(??{""})xxx    xxx     y       $&      xxx