From 72aa120d9a32a14196c9e39aa26993909423f096 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Sat, 11 Dec 2010 17:20:18 -0700
Subject: [PATCH] re/pat.t: Add todo test for #38133

---
 t/re/pat.t | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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;
-- 
1.8.3.1