From a17b85566d23609b168c68c37eb1e58ada53116c Mon Sep 17 00:00:00 2001 From: Johannes Plunien Date: Tue, 13 Dec 2011 12:29:47 +0400 Subject: [PATCH] Add testcase for #78266. --- t/op/svleak.t | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/t/op/svleak.t b/t/op/svleak.t index 5eb090c..4eee3c8 100644 --- 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/ + (?: + <(? + \s* + [^>\s]+ + )> + )?? + /xis; + + "" =~ m/$RE/gcs; + + leak(5, 0, sub { + my $tag = $+{tag}; + }, "named regexp captures"); +} -- 2.7.4