In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/06f26dc89ebc43d50835aaecc477ec160a5a5835?hp=c1cc29fd0c75ba66cac01113aa5a22009dcea306>
- Log -----------------------------------------------------------------
commit 06f26dc89ebc43d50835aaecc477ec160a5a5835
Author: Yves Orton <demer...@gmail.com>
Date: Sun Feb 25 10:46:48 2018 +0100
add a svleak.t test for RT #132892
This tests the change applied in
910a6a8be166fb3780dcd2520e3526e537383ef2
I tested that when that commit is reverted this test fails,
and when it is in place it does not.
-----------------------------------------------------------------------
Summary of changes:
t/op/svleak.t | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/t/op/svleak.t b/t/op/svleak.t
index 05ae01f792..3283c95cbf 100644
--- a/t/op/svleak.t
+++ b/t/op/svleak.t
@@ -15,7 +15,7 @@ BEGIN {
use Config;
-plan tests => 148;
+plan tests => 149;
# 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
@@ -619,3 +619,9 @@ SKIP: {
leak 2,1,sub{XS::APItest::PerlIO_exportFILE(*STDIN,"");0},
'T_STDIO in default typemap';
}
+
+{
+ my %rh= ( qr/^foo/ => 1);
+ sub Regex_Key_Leak { my ($r)= keys %rh; "foo"=~$r; }
+ leak 2, 0, \&Regex_Key_Leak,"RT #132892 - regex patterns should not leak";
+}
--
Perl5 Master Repository
