re/pat.t: Add todo test for #38133

[perl5.git] / t / re / pat.t

diff --git a/t/re/pat.t b/t/re/pat.t
index 95d4a39..72e36df 100644 (file)
--- 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;