In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/72aa120d9a32a14196c9e39aa26993909423f096?hp=07291fb1a7edabce6a931ef33738996b779eb1f9>
- Log ----------------------------------------------------------------- commit 72aa120d9a32a14196c9e39aa26993909423f096 Author: Karl Williamson <[email protected]> Date: Sat Dec 11 17:20:18 2010 -0700 re/pat.t: Add todo test for #38133 ----------------------------------------------------------------------- Summary of changes: t/re/pat.t | 12 ++++++++++++ 1 files changed, 12 insertions(+), 0 deletions(-) diff --git a/t/re/pat.t b/t/re/pat.t index 95d4a39..72e36df 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -1146,6 +1146,18 @@ sub run_tests { } + { + local $TODO = "[perl #38133]"; + + "A" =~ /(((?:A))?)+/; + my $first = $2; + + "A" =~ /(((A))?)+/; + my $second = $2; + + iseq($first, $second); + } + } # End of sub run_tests 1; -- Perl5 Master Repository
