re/pat.t: Add todo test for #38133
authorKarl Williamson <public@khwilliamson.com>
Sun, 12 Dec 2010 00:20:18 +0000 (17:20 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sun, 12 Dec 2010 00:20:43 +0000 (17:20 -0700)
t/re/pat.t

index 95d4a39..72e36df 100644 (file)
@@ -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;