Add testcase for #78266.

Perl · Dec 13, 2011 · a17b855 · a17b855
1 parent b28f4af
commit a17b855
Showing 1 changed file with 18 additions and 1 deletion.
diff --git a/t/op/svleak.t b/t/op/svleak.t
@@ -13,7 +13,7 @@ BEGIN {
 	or skip_all("XS::APItest not available");
 }
 
-plan tests => 19;
+plan tests => 20;
 
 # run some code N times. If the number of SVs at the end of loop N is
 # greater than (N-1)*delta at the end of loop 1, we've got a leak
@@ -141,3 +141,20 @@ leak(2, 0,
     },
     "rcatline leak"
 );
+
+{
+    my $RE = qr/
+      (?:
+        <(?<tag>
+          \s*
+          [^>\s]+
+        )>
+      )??
+    /xis;
+
+    "<html><body></body></html>" =~ m/$RE/gcs;
+
+    leak(5, 0, sub {
+        my $tag = $+{tag};
+    }, "named regexp captures");
+}