diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-12-11 17:20:18 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2010-12-11 17:20:43 -0700 |
| commit | 72aa120d9a32a14196c9e39aa26993909423f096 (patch) | |
| tree | d5417d10c6749c0a61a0807f6765c5f4097ffc72 /t/re | |
| parent | 07291fb1a7edabce6a931ef33738996b779eb1f9 (diff) | |
| download | perl-72aa120d9a32a14196c9e39aa26993909423f096.tar.gz | |
re/pat.t: Add todo test for #38133
Diffstat (limited to 't/re')
| -rw-r--r-- | 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 95d4a391e2..72e36dfece 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; |