From b4da7baecba4c47b718c6a389ee37a234323bc09 Mon Sep 17 00:00:00 2001 From: Bram via RT Date: Sat, 31 Oct 2009 19:33:04 -0500 Subject: [PATCH] [PATCH] Todo test for [perl #38133] (was: [regex] backref problem with quantified groups) This patch was modified to work with the updated file locations. --- t/re/pat_rt_report.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t index 92f4acc..efbbe8f 100644 --- a/t/re/pat_rt_report.t +++ b/t/re/pat_rt_report.t @@ -21,7 +21,7 @@ BEGIN { } -plan tests => 2510; # Update this when adding/deleting tests. +plan tests => 2511; # Update this when adding/deleting tests. run_tests() unless caller; @@ -1178,6 +1178,18 @@ sub run_tests { ok($s =~ $pat, $pat); } } + + { + local $TODO = "[perl #38133]"; + + "A" =~ /(((?:A))?)+/; + my $first = $2; + + "A" =~ /(((A))?)+/; + my $second = $2; + + iseq($first, $second); + } } # End of sub run_tests 1; -- 1.8.3.1